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ABSTRACT 


An  automated  general  purpose  system  for  analysis  is 
presented.  This  system,  identified  by  the  acronyn  "MAGIC  II" 
for  "Matrix  Analysis  via  Generative  and  Interpretive  Computa¬ 
tions,"  provides  a  flexible  framework  for  implementation  of 
the  finite  element  analysis  technology.  Powerful  capabilities 
for  displacement,  stress  and  stability  analyses  are  included 
in  the  subject  MAGIC  II  System  for  structural  analysis. 

The  matrix  displacement  method  of  analysis  based  upon 
finite  element  idealization  is  employed  throughout.  Ten 
versatile  finite  elements  are  incorporated  in  the  finite 
element  library.  These  are:  frame,  shear  panel,  triangular 
cross-section  ring,  toroidal  thin  shell  ring,  quadrilateral 
thin  shell,  triangular  thin  shell,  tfapezodial  ring,  trian¬ 
gular  plate,  incremental  frame  and  quadrilateral  plate  elements. 
These  finite  element  representations  include  matrices  for 
stiffness,  consistent  mass,  incremental  stiffness,  thermal 
stress,  thermal  load,  distributed  mechanical  load,  and 
stresses. 

The  MAGIC  II  System  for  structural  analysis  is  presented 
as  an  integral  part  of  the  overall'  design  cycle.  Considera¬ 
tions  in  this  regard  include,  among  other  things,  preprinted 
input  forms,  automated  data  generation,  data  confirmation 
features,  restart  options,  automated  output  data  reduction 
and  readable  output  displays. 

Documentation  of  the  MAGIC  II  System  is  presented  in 
three  parts;  namely.  Volume  I:  Engineer's  Manual,  Volume  II: 
User's  Manual  and  Volume  III:  Programmer's  Manual.  The 
subject  Volume,  Volume  III,  is  designed  to  facilitate 
implementation,  operation,  modification,  and  extension  of 
the  MAGIC  II  System. 
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SECTION  I 


INTRODUCTION 


A  Structural  Generative  System  has  been  developed  and 
inserted  into  FORMAT  II  (Reference  2)  for  the  purpose  of 
generating  structural  matrices  for  use  by  FORMAT  II.  The 
insertion  of  a  Structural  Generator  into  FORMAT  II  resulted 
in  a  computer  program  retaining  ease  of  implementation  and 
use,  yet  offering  diversified  capabilities. 

Machine  compatibility  has  been  retained  by  the  complete 
use  of  FORTRAN  IV  in  the  development  of  the  structural  Genera¬ 
tive  System.  The  absence  of  machine  or  assembler  language 
from  every  portion  of  the  program  eliminates  the  problems 
of  machine  dependency  and  implementation  difficulty. 

Input  to  the  Structural  Generative  System  is  accomplished 
by  filling  in  preprinted  structural  engineering  oriented 
input  sheets.  The  combination  of  these  sheets  and  the  normal 
matrix  abstraction  instructions  of  FORMAT  II  allows  minimal 
training  for  use  of  the  program,  thus  decreasing  the 
possibility  of  input  errors . 

The  program  is  capable  of  restart  at  any  point  in  the 
abstraction  instruction  sequence  stipulated  at  the  discretion 
of  the  User.  Input  data,  intermediate  results,  final  results 
or  any  matrix  whatsoever  may  be  automatically  saved,  by  use 
of  the  proper  instruction,  and  used  as  a  starting  point  or 
new  input  to  subsequent  applications  on  continuing  or 
independent  projects. 

The  MAGIC  System  consists  of  a  total  of  355  subroutines  of 
which  199  form  the  Structural  Generative  system.  The  355  sub¬ 
routines  can  be  logically  designed  into  an  overlay  structure 
which  reflects  the  optimum  use  of  available  storage  in  relation 
to  the  longest  link  so  that  the  program  will  maintain  respectable 
execution  efficiency.  The  Structural  Generative  System  requires 
a  minimum  of  13,000  decimal  words  of  work  storage  which  is  assigned 
to  an  unlabeled  common  block.  A  minimum  of  eight  external  storage 
units  available  to  the  FORMAT  II  System  are  required  for  use  of 
the  Structural  Generative  System,  including  at  least  one  assigned 
to  the  Master  Input  FORMAT  function,  one  assigned  to  the  Master 
Output  FORMAT  function,  and  four  assigned  to  the  Utility  FORMAT 
function.  The  other  two  units  are  necessary  for  intermediate 
matrix  results  and  for  an  instruction  data  set.  The  MAGIC  System 
needs  36,030  decimal  words  of  internal  storage  to  execute  on  an 
IBM  360/65  using  a  43  link  OVERLAY  structure  (not  considering 
internal  core  necessary  for  I/O  buffers  and  OS  system  routines). 
Using  the  three  level  OVERLAY  of  CDC,  the  MAGIC  System  can  execute 
using  34,698  decomal  (103,612  octal)  words  of  internal  storage 
on  the  CDC  6400,  not  considering  internal  storage  for  1/0  buffers 
and  SCOPE  system  routines  necessary  to  execute  the  OVERLAY  program. 
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The  MAGIC  System  has  been  implemented  on  the  IBM  360/65 
under  direct  machine  control,  but  some  Installations  may  not 
be  able  to  execute  MAGIC  under  direct  machine  control.  This 
was  the  case  when  the  MAGIC  I  System  was  implemented  on  the 
IBM  7090. 

The  number  of  subroutines  contained  in  the  FORMAT  II 
program  necessitated  the  use  of  SUBSYS,  a  software  package 
developed  by  Westinghouse ,  which  improved  the  loading 
capabilities  of  IBSYS  on  the  IBM  7090/94.  In  addition  to 
allowing  the  program  to  be  loaded,  SUBSYS  allowed  the  program 
overlay  tape  to  be  saved,  thereby  improving  execution  time. 
Programs  may  be  stacked  on  this  overlay  tape.  Taking  advantage 
of  this  fact,  FORMAT  II  with  the  Structural  Generative  System 
insertion,  was  actually  three  programs  executed  automatically 
with  no  intervention  by  IBSYS.  The  first  program  consisted 
of  the  FORMAT  II  Preprocessor,  the  second  consisted  of  the 
FORMAT  II  Execution  Monitor  and  the  third  contained  the 
Structural  Generative  System.  Although  the  Structural 
Generative  System  was  actually  a  separate  program  when 
operating  under  SUBSYS  control  on  the  IBM  7090/94,  it  is 
activated  and  controlled  as  a  normal  User  Module  under  the 
FORMAT  II  System.  Explicitly,  the  Structural  Generative  System 
is  the  fourth  User  Module  (USER04)  available  under  FORMAT  II. 
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SECTION  II 


COORDINATION'  OF  STRUCTURAL  GENERATIVE  SYSTEM  WITH  FORMAT  II 


A.  DETAILED  ANALYSIS  OF  USER04  INSTRUCTION 

1.  Input  and  Output  Matrix  Position  Functions 

The  Structural  Generative  System  may  have  as  many 
as  fifteen  actual  output  matrices  and  require  as  many  as 
four  actual  input  matrices.  The  basic  form  of  the  USER04 
instruction  may  be  represented  as  follows: 

OMP1 ,  0MP2 ,  OMP3,  0MP4 ,  0MP5,  0MP6,  0MP7,  0MP8, 

0MP9,  OMP10,OMP11,  0MP12,  0MP13,  0MP14 ,  0MP15  = 

IMP1,  IMP2 ,  IMP3,  IMP4  . USER04 .  ; 

where  OMP  is  read  as  output  matrix  position  and  IMP  as  input 
matrix  position.  All  matrix  positions,  whether  input  or 
output,  must  be  present.  They  may  contain  matrix  names  or 
be  blank,  but  there  must  be  nineteen  matrix  positions  re¬ 
presented  by  the  appropriate  number  of  commas.  Blank  matrix 
positions  are  discussed  in  the  next  section.  The  output  matrix 
positions,  if  nonblank,  will  contain  the  following  matrices 
upon  exit  from  the  Structural  Generative  System: 


OMP1 

copy  of  input  structure  data  deck 

0MP2 

revised  material  library 

OMP  3 

interpreted  input  (structure  input 
data  as  stored  after  being  read 
and  interpreted) 

0MP4 

*• 

external  system  grid  point  loads 
and  load  scalar  matrix 

OMPp 

transformation  matrix  for  applica¬ 
tion  of  boundary  conditions 

0MP6 

— 

transformation  matrix  for  assembly 
of  element  matrices 

0MP7 

— 

element  stiffness  matrices  stored 
as  one  matrix 

0MP8 

— 

element  generated  load  matrices 
stored  as  one  matrix 

OMP  9 

— 

element  stress  matrices  stored  as 
one  matrix 

OMPIO 

element  thermal  stress  matrices 
stored  as  one  matrix 

OMP  11 

• 

element  incremental  stiffness 
matrices  stored  as  one  matrix 
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0MP12 

0MP13 

OMPl'l 

OMP15 


element  mass  matrices  stored  as 
one  matrix 

structural  system  constants  stored 
as  one  matrix 

element  matrices  in  compressed 
format  stored  as  one  matrix 
prescribed  displacement  matrix 


The  input  matrix  positions,  if  nonblank  must  contain 
the  following  matrices: 

IMP1  -  structure  data  deck  (this  would  be 

a  previously  generated  matrix  saved 
in  0MP1) 

IMP2  -  interpreted  input  (this  would  be  a 

previously  generated  matrix  saved 
in  0MP3  used  for  restart) 

IMP3  -  existing  material  library  (this 

would  be  a  previously  generated 
matrix  saved  in  0MP2) 

IMP1)  -  displacement  or  stress  matrix  to 

be  used  for  stability  analyses 
(the  stress  matrix  must  have  been 
generated  by  the  structural  abstraction 
instruction  .STRESS.) 


It  should  be  noted  that  the  following  matrix  positions 
are  called  matrices  only  in  the  sense  that  all  input  and  output 
entities  are  considered  matrices  by  FORMAT  II  -  0MF1,  IMP2, 
OMP3,  0MP14,  IMP1,  IMP2  and  IMP3. 

It  is  important  to  note  that  0MP14  is  mutually 
exclusive  with  0MP6,  0MP7,  0MP8,  OMP9,  OMPIO,  0MP11,  and  0MP12. 
In  order  to  retain  compatability  with  the  MAGIC  I  system  and 
eliminate  redundant  execution  time,  the  following  rules  must 
be  observed. 

(a)  If  0MP14  is  suppressed  then  0MP6,  0MP7,  0MP8, 
0MP9,  OMPIO,  0MP11,  and  0MP12  will  be  generated  according  to 
their  definition  in  Part  A.l  of  Section  II.  If  this  is  the 
case  then  it  is  assumed  the  user  is  using  MAGIC  I  abstraction 
instructions  to  solve  his  problem. 

(b)  If  0MP14  is  not;  suppressed  then  0MP7,  0MP8, 

0MP9,  OMPIO,  0MP11  and  0MP12  will  serve  only  as  indicators 
to  the  . USER04.  instruction  for  generation  or  non-generation 
of  their  respective  element  matrices.  Since  no  matrices  will 
be  generated  in  0MP6  through  0MP12  (if  0MP14  is  not  suppressed) 
they  should  never-  be  referenced  in  subsequent  abstraction 
instructions . 
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2.  Suppression  Option 

Incorporated  into  the  Structural  Generative  System 
is  an  option  t*  suppress  the  generation  and  output  of  any  of 
the  output  matrices  and  also  to  indicate  the  absence  of  any 
of  the  input  matrices.  This  option  is  indicated  to  the 
Structural  Generative  System  by  the  absence  of  a  matrix  name 
In  the  desired  position  in  the  .USER04.  instruction.  A  matrix 
name  is  considered  to  be  absent  if  the  matrix  position  con¬ 
tains  all  blanks  or  the  character  length  of  the  name  is  zero. 
For  example,  an  instruction  of  the  form:  »,INTINP,  LOADS,  TR, 
TA,  KEL,  FEL,  SEL,  SZALEL,,,,,  =  ,  ,MATLB1, .  USERO^J .  ;  would 
cause  suppression  of  the  copy  of  the  data  deck,  the  revised 
material  library,  the  element  incremental  stiffness  matrices, 
the  element  mass  matrices,  the  structural  system  constant 
matrix,  the  compressed  element  matrix  and  the  prescribed 
displacement  matrix.  The  instruction  also  indicates  that 
there  is  no  input  data  deck  on  tape,  (directing  the  Structural 
Generative  System  to  read  data  from  cards),  no  interpreted  data 
on  tape  and  no  Input  displacements  or  stresses.  It  should  be 
noted  that  certain  sections  of  the  data  deck  are  necessary  for 
the  generation  of  each  of  the  output  matrices  and  that  error 
checking  is  done  to  determine  if  the  required  sections  are 
present.  A  table  of  the  required  data  sections  for  generation 
of  each  matrix  appears  in  the  User's  Manual.  Accordingly, 
error  checking  is  invoked  for  the  input  matrix  positions  to 
determine  if  ambiguous  or  conflicting  input  indications  have 
been  made. 

Internally,  the  logic  flow  of  the  suppression  option 
is  controlled  by  inserting  key  characters  for  suppressed 
matrices.  Upon  detection  of  a  suppressed  matrix  by  Subroutine 
INST,  a  matrix  name  of  the  form  ////XX  is  Inserted  into  that 
matrix  position.  The  four  slashes  are  inserted  for  recognition 
by  the  Structural  Generative  System  of  a  suppressed  matrix 
and  the  last  two  positions  may  each  contain  the  digits  0-9 
assigned  sequentially  starting  from  00  for  each  suppressed 
matrix  encountered.  The  last  two  positions  in  the  inserted 
name  for  suppressed  matrices  ensure  that  each  suppressed  matrix 
name  will  be  unique,  thereby  eliminating  inconsistencies  in 
the  FORMAT  II  Preprocessor. 
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Suppressed  input  matrices,  i.e.  those  occurring  to 
the  right  of  the  equal  sign  in  the  input  .USERO*!.  abstraction 
instruction,  are  recorded  on  NDATA,  the  data  set  reserved  for 
card  input  matrices,  as  null  matrices  to  satisfy  FORMAT  II 
Preprocessor  input  matrix  existence  requirements.  This 
operation  is  accomplished  by  subroutine  MATSUP. 


B.  USE  OF  FORMAT  II  DATA  SETS 

1.  Master  Input  and  Master  Output  Use  for  Material  Library 

References  to  the  Material  Library  are  indicated  by 
output  matrix  position  two  and  input  matrix  position  three  in 
the  . USER04.  abstraction  instruction.  Retention  of  a  newly 
generated  or  revised  Material  Library  is  governed  solely  by 
use  of  the  SAVE  abstraction  instruction  at  the  discretion  of 
the  User.  If  retention  is  desired,  the  matrix  name  in  output 
matrix  position  two  must  appear  in  a  SAVE  abstraction  instruction, 
in  which  case  it  will  be  placed  on  a  Master  Output  tape.  If 
a  non-blank  matrix  name  appears  in  input  matrix  position  three, 
the  Master  Input  Tape  will  be  searched  for  that  name. 

Usage  and  generation  of  the  Material  Library  is 
controlled  by  the  three  legal  combinations  of  suppression  of 
output  matrix  position  two  and  input  matrix  position  three. 

If  the  matrix  name  in  output  matrix  position  two  is  non-blank, 
but  input  matrix  position  three  is  suppressed,  a  new  Material 
Library  will  be  generated  and  used.  If  both  involved  matrix 
positions  are  non-blank,  the  old  Material  Library  will  be 
located  on  the  Master  Input  tape,  will  be  revised,  stored  as 
the  matrix  named  in  the  specified  output  position,  and  then 
this  revised  Material  Library  will  be  used.  If  output  matrix 
position  two  is  suppressed  and  input  matrix  position  three  is 
non-blank,  then  the  named  input  Material  Library  will  be  used: 
Suppression  of  both  involved  matrix  positions  results  in  an 
error  condition. 

Since  the  material  library  is  stored  under  a  matrix 
name  on  Master  Output  tapes,  and  also,  therefore  Master  Input 
tapes,  any  other  matrices  may  also  be  saved  on  the  same  tape, 
including  other  Material  Libraries. 


2.  Instruction  Input  Data  Sets 

An  instruction  input  data  set  is  an  external  storage 
unit  that  conta'ns  at  least  one  of  the  non-blank  matrices 
named  in  input  matrix  positions  one,  two,  three  or  four  in 


the  .USEROlJ.  abstraction  instruction.  The  Structural  Genera¬ 
tive  System  qonforms  to  all  the  rules  of  FORMAT  II  with 
regard  to  use  of  instruction  input  data  sets.  All  searching, 
reading,  and  rewinding  is  accomplished  by  use  of  the  FORMAT  II 
data  set  handling  subroutines  EUTL1-EUTL9.  No  attempt  is  ever 
made  to  write  on  an  instruction  input  data  set. 


3.  Instruction  Output  Data  Sets 

An  instruction  output  data  set  is  an  external  storage 
unit  which  has  been  designated  by  the  FORMAT  II  Preprocessor 
to  contain  at  least  one  of  the  non-blank  matrices  in  output 
matrix  positions  one  to  fifteen  in  the  .USERO^.  abstraction 
instruction.  The  Structural  Generative  System  conforms  to 
all  rules  of  FORMAT  II  with  regard  to  instruction  output  data 
sets  by  using  the  FORMAT  II  data  set  handling  subroutines 
EUTL1-EUTL9  to  write  all  matrix  headers,  matrix  trailers, 
data  set  trailers  and  end  of  files  on  instruction  output  data 
sets.  All  matrices  are  stored  by  column  in  the  required  record 
format.  No  attempt  is  ever  made  by  the  Structural  Generative 
System  to  rewind  an  instruction  output  data  set. 


4.  Scratch  Data  Sets 

Scratch  data  sets  are  external  storage  units  that  have 
been  assigned  by  the  FORMAT  II  System  to  the  Structural  Genera¬ 
tive  System  to  be  used  as  temporary  storage  areas.  There  are 
no  reading,  writing  or  rewinding  rules  imposed  on  scratch  data 
sets  by  the  FORMAT  II  System.  The  required  four  scratch  data 
sets  are  assigned  to  the  following  functions  by  the  Structural 
Generative  System: 

SCRATCH  DATA  SET  1  -  1st  use  -  external  storage  areas 

for  report  form  input  preprocessor 

2nd  use  -  contain  structure 
control  'information  including 
system  orders,  boundary  conditions 
and  system  print  operations 

SCRATCH  DATA  SET  2  -  1st  use  -  contain  temporary 

copy  of  direct  input  structure 
data  deck 

2nd  use  -  contain  generated 
element  matrices  in  compact 
.form 


SCRATCH  DATA  SET  3  -  1st  use  -  contain  temporary 

copy  of  actual  input  deck 

2nd  use  -  contain  element 
input  data  after  reading  and 
interpretation 

SCRATCH  DATA  SET  4  -  1st  use  -  external  storage 

area  for  report  form  input 
preprocessor 

2nd  use  -  contain  input 
loads  matrix 

3rd  use  -  contain  input  dis¬ 
placements  or  input  stresses, 
if  any 
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SECTION  III 


ORGANIZATION  OF  STRUCTURAL  GENERATIVE  SYSTEM 


A.  BASIC  LOGIC  FLOW 


The  Structural  Generative  System  has  three  basic  phases 
of  operational  flow;  the  input  phase,  the  element  matrices 
generation  phase,  and  the  output  phase.  The  input  phase  consists 
of  reading,  interpreting  and  storing  the  information  contained 
in  the  structure  data  deck.  From  the  stored  input,  the 
element  matrices  selected  are  generated  in  the  second  phase. 

Phase  three  outputs  all  non-suppressed  matrices  indicated  by  the 
.USER04.  abstraction  instruction  in  output  matrix  position 
six  through  twelve,  if  output  matrix  position  fourteen  has 
been  suppressed,  or  outputs  only  output  matrix  position 
fourteen  if  it  was  non-suppressed.  Output  matrix  positions 
one  through  five  and  thirteen  and  fifteen  are  generated 
directly  from  the  input  structure  data  deck  and  for  this 
reason  are  actually  output  during  the  first  or  input  phase. 
Subroutine  US04  controls  the  three  logical  phases  by  directly 
controlling  subrouting  US04A  which  controls  the  input  phase 
and  US04B  which  controls  the  generation  and  output  phases. 
Normally,  the  basic  logical  flow  of  the  Structural  Generative 
System  would  be  sequentially  through  the  three  phases,  however, 
by  use  of  the  suppression  option,  it  is  possible  to  completely 
skip  a  given  phase.  The  actual  logic  flow  of  the  system  is 
created  by  subroutine  L.OGFLO  as  determined  by  the  .USER04. 
abstraction  instruction.  For  example,  if  the  .USER04. 
instruction  was  written  such  that  only  the  boundary  conditions 
had  changed  and  the  remainder  of  the  necessary  matrices  were 
saved  from  a  previous  application  as  indicated  by  the  suppression 
option,  subroutine  LOGFLO  would  eliminate  the  second  and 
third  phases. 


B.  INPUT  PHASE  LOGIC  FLOW 

The  logic  flow  of  the  input  phase  is  determined  by  the 
type  of  input  encountered.  The  two  types  of  input  are  report 
form  input  and  interpreted  input. 


1.  Report  Form  Input 

The  location  of  the  input  data  deck  is  determined  by 
examining  IMP1  of  the  input  .USER04.  abstraction  instruction. 

If  this  input  position  was  blank,  then  the  data  deck  is  assumed 
to  be  on  NPIT,  the  system  input  unit.  If  IMP1  contained  a 
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non-blank  matrix  name,  then  the  input  data  deck  exists  as  a 
matrix  and  the  original  card  form  deck  is  reconstructed  by 
subroutine  INDECK. 


Report  Form  Input  is  a  highly  flexible,  engineering 
oriented  type  of  input  for  the  Structural  Generative  System. 

From  a  programming  viewpoint,  report  form  input  allows  ease 
of  use  by  the  Analyst  and  by  translation  allows  logical 
readability  by  the  program. 

Encountering  a  report  form  input  deck  caus.es  the  input 
phase  to  pass  control  to  the  Report  Form  Input  Preprocessor. 
Basically,  the  report  form  input  preprocessor  translates  the 
flexible  report  form  input  deck  into  a  sophisticated  direct 
input  deck.  Translation  is  accomplished  by  two  steps  con¬ 
trolled  by  subroutine  REFORM. 

The  first  step  is  to  read  and  store  the  report  form 
input  deck.  This  step  is  accomplished  by  subroutine  PHASE1 
with  support  by  subroutines  LATCH  and  FORMIN.  PHASE1  controls 
all  storage,  both  internal  core  storage  and  external  storage 
on  scratch  data  sets  one  and  four.  LATCH  performs  label 
matching  tests  to  determine  the  various  sections  of  input  and 
FORMIN  reads  all  table  form  input,  sections;  non-table  form 
input  sections  are  read  directly  in  PHASE1. 

The  second  step  in  processing  a  report  form  input  deck 
is  to  merge  the  data  stored  by  the  first  step  into  a  direct 
data  deck.  These  two  operations  are  performed  by  subroutine 
PHASE2  supported  by  subroutine  OPEN.  The  information  stored 
by  the  first  step  is  merged  into  a  compact  direct  data  deck 
by  PHASE2  and  output  on  scratch  data  set  two.  The  OPEN  sub¬ 
routine  aids  PHASE2  by  locating,  in  any  order  designated  by 
PHASE2  the  input  sections  stored  on  scratch  data  sets  one  and/or 
four.  At  this  point,  a  complete  direct  data  Input  deck  is 
resident  on  scratch  data  set  two  and  control  returns  to  US04A. 
Once  a  direct  data  deck  is  resident  on  scratch  data  set  two, 
reading,  interpreting  and  storage  is  controlled  by  subroutine 
INPUT  with  each  Input  section  handled  as  indicated  by  the 
following  table: 


INPUT  SECTION  SUBROUTINE  INTERPRETED  STORAGE 


Title  (TITLE) 

System  Control  (SYSTEM) 

Grid  Points  (COORD) 

Boundary  Conditions  (BOUND) 
Element  Definitions  (ELEM) 

Grid  Point  Loads  (LOADS) 

Grid  Point  Axes  (GRAXES) 

Material  Library  Requests  (MATER) 
Grid  Point  Temperatures  (TEMP) 
Grid  Point  Pressures  (PRESS) 
Prescribed  Displacements  (PDISP) 


INPUT 

None 

INPUT 

Scratch 

data 

set 

1 

INPUT 

Scratch 

data 

set 

3 

BOUNT 

Scratch 

data 

set 

3 

ELEM 

Scratch 

data 

set 

3 

FGRLDS 

Scratch 

data 

set 

H 

FRED 

Scratch 

data 

set 

3 

FMAT 

Master  Output 

data  set 

INPUT 

Scratch 

data 

set 

3 

INPUT 

Scratch 

data 

set 

3 

BOUND 

Scratch 

data 

set 

3 
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If  output  matrix  position  one  was  non-blank,  then  a 
copy  of  the  actual  input  data  deck  is  also  written  on  the 
instruction  output  data  set  specified  by  the  FORMAT  II  System 
by  subroutine  COPYLK. 


2.  Interpreted  Input 

After  the  data  deck  has  been  read  and  interpreted 
under  control  of  subroutine  INPUT,  all  pertinent  data  exists 
on  scratch  data  sets  one  and  three.  If  output  matrix  position 
three  in  the  .USERO^.  abstraction  instruction  is  non-blank, 
then  the  contents  of  scratch  data  sets  one  and  three  are  output 
under  that  matrix  name  onto  the  instruction  output  data  set 
specified  by  the  FORMAT  II  System  by  subroutine  OU'TINT.  If 
this  "matrix"  is  saved  and  input  at  input  matrix  position  two 
in  the  .USERO^.  instruction,  the  Structural  Generative  System 
is  capable  of  restart  at  the  second  or  element  generation 
phase,  thereby  eliminating  a  repeat  of  the  input  phase.  This 
feature  is  recommended  for  usage  on  large  applications  where 
the  procedure  would  be  to  run  the  data  deck,  stop  after 
interpreting  and  storing  the  data,  check  for  input  errors, 
and  if  no  errors  are  present  restart  at  the  element  generation 
phase . 


Before  exiting  from  the  input  phase,  subroutine  CHEK 
is  called  to  perform  input  error  cross-checking.  While 
determining  the  logical  flow  at  the  Structural  Generative  System, 
subroutine  LOGFLO  also  recorded  the  input  sections  required  to 
generate  the  requested  output  matrices.  If  any  of  the  required 
input  sections  have  not  been  processed,  then  execution  will  be 
terminated  after  the  input  phase. 


C.  ELEMENT  MATRICES  GENERATION  PHASE  LOGIC  FLOW 


The  second  phase  of  operation  of  the  Structural  Generative 
System  consists  of  generation  of  the  element  matrices. 

If  input  matrix  position  two  of  the  input  .USSR04.  abstrac¬ 
tion  instruction  is  non-blank,  then  subroutine  ININT  is  called 
to  reconstruct  the  data  on  scratch  data  sets  one  and  three  from 
the  input  matrix. 

If  input  matrix  position  four  of  the  input  .USERO^. 
abstraction  instruction  is  non-blank,  then  subroutine  DEFLEX 
is  called  to  store  the  input  displacements  or  stresses  (which 
ever  was  input)  on  scratch  data  set  four. 
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At  this  point  all  the  necessary  data  is  located  on  scratch 
data  sets  one  and  three,  placed  there  by  either  phase  one  or 
restart  using  input  matrix  position  two  of  the  .USER04. 
abstraction  instruction.  Basic  control  of  the  second  phase  is 
accomplished  by  subroutine  FELEM  under  subroutine  US04B.  FELEM 
reads  scratch  data  set  one  to  obtain  system  control  information 
and  sets  suppression  controls  to  eliminate  generation  of 
undesired  element  matrices  by  calling  subroutine  SQUISH.  Scratch 
data  set  three  contains  the  necessary  input  for  each  element, 
one  set  of  element  input  per  record.  For  each  element,  sub¬ 
routine  ELPLUG  reads  an  element  input  record,  selects  the  proper 
element  to  calculate  the  matrices  and  then  writes  the  generated 
matrices  on  scratch  data  set  two  in  compact  form. 

Prior  to  being  written  upon  scratch  data  set  two,  the 
element  matrices  are  temporarily  stored  in  the  blank  common 
work  area.  Also,  all  work  areas  that  are  needed  by  the 
specific  element  are  allocated  from  the  blank  common  work 
area.  For  these  reasons,  the  Structural  Generative  System 
requires  a  blank  common  work  area  of  at  least  13,000  words 
of  internal  core  storage. 

Imbedded  into  the  Element  Matrices  Generation  Phase,  at 
strategic  locations,  are  utility  packages  accessible  by  the 
specific  elements  which  require  their  capabilities.  Integra¬ 
tion  packages  and  small  scale  matrix  operation  packages  are 
examples  of  utility  sections  commonly  accessible  to  the  neces¬ 
sary  elements.  The  exact  locations  of  these  packages  are 
indicated  by  the  Structural  System  Overlay  Chart  (Appendix  I). 
Overlay  to  each  element  has  been  avoided  wherever  possible 
to  reduce  execution  process  time.  However,  an  area  of 
approximately  1000  locations  between  the  longest  link  and 
the  origin  of  the  common  area  has  been  kept  clear  to  allow 
for  future  substantial  alterations  to  be  made  without  re¬ 
designing  the  complete  overlay  structure. 


D.  OUTPUT  PHASE  LOGIC  FLOW 


1.  Organization  of  Output  Matrices 

All  output  entities  from  the  Structural  Generative 
System  are  written  following  the  rules  of  the  FORMAT  II  System. 
Each  output  enticy  is  written  as  a  matrix,  consisting  of  a 
matrix  header,  matrix  column  records  and  a  matrix  trailer. 

The  following  list  exhibits  the  contents,  interpretation  of 
matrix  header  information  (number  of  rows,  number  of  columns) 
and  interpretation  of  matrix  column  records  for  each  output' 
position  in  the  .USER04.  abstraction  instruction. 


b 
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a.  Output  Matrix  Position  One  (OMP1) 

Contents  -  Copy  of  card  input  da*ta  deck 

Number  of  rows  -  Set  to  eighty  (80) 

Number  of  columns  -  Number  of  cards  in  data  deck 

Column  records  -  One  data  card  per  column  record, 

one  card  column  per  row 

b.  Output  Matrix  Position  Two  (0MP2) 

Contents  -  Material  library 

Number  of  rows  -  306  (maximum  number  of  words 

possible  for  one  material 
entry) 

Number  of  columns  -  Number  of  material  tables  in 

library  plus  one 

Column  records  -  One  material  table  per 

column  record 

c.  Output  Matrix  Position  Three  (0MP3) 

Contents  -  Interpreted  input 

Number  of  rows  -  Set  to  number  of  words  in 

maximum  record  created 

Number  of  columns  -  Number  of  elements  plus  four 

Column  records  -  One  element  input  block  per 

record 

d.  Output  Matrix  Position  Pour  (OMP^O 

Contents  -  External  system  grid  point 

loads 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  total  system  plus  1 

Number  of  columns  -  Number  of  load  conditions 

Column  records  -  The  first  word  is  the  external 

load  scalar  followed  by  one  load 
condition  per  column  record 
(use  .DEJOIN,  to  obtain  the 
load  scalar). 

e.  Output  Matrix  Position  Five  (0MP5) 

Contents  -  Transformation  matrix  for 

application  of  boundary 
conditions 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  total  system 

Number  of  columns  -  Number  of  degrees  of  freedom 

in  total  system 
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Column  records 


-  (1)  for  desired  degrees  of 
freedom  -  contain  a  one 
in  the  assigned  reduced 
degree  of  freedom  row 

(2)  for  undesired  degrees  of 
freedom  -  column  record 
is  omitted  (null  column) 

Output  Matrix  Position  Six  (0MP6) 

Contents  -  Transformation  matrix  for 

assembly  of  element  matrices 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  total  system 

Number  of  columns  -  Summation  of  element  degrees 

of  freedom 

Column  records  -  Contain  a  one  in  the  assigned 

degree  of  freedom  row  for  that 
summed  element  degree  of 
freedom 

Output  Matrix  Position  Seven  (0MP7) 

Contents  -  Element  stiffness  matrices 

Number  of  rows  -  Summation  of  element  degrees 

of  freedom 

Number  of  columns  -  Summation  of  element  degrees 

of  freedom 

Column  records  -  Each  record  contains  a  column 

of  an  element  stiffness  matrix 

Output  Matrix  Position  Eight  (0MP8) 

Contents  -  Element  applied  load  matrices 

Number  of  rows  -  Summation  of  element  degrees 

of  freedom 

Number  of  columns  -  One 

Column  record  -  Contains  all  element  applied 

load  matrices 

Output  Matrix  Position  Nine  (0MP9) 

Contents  -  Element  stress  matrices 

Number  of  rows  -  Summation  of  element  stress 

point  and  component  orders 

Number  of  columns  -  Summation  of  element  degrees 

of  freedom 

Column  records  -  Each  record  contains  a  column 

of  an  element  stress  matrix 


j.  Output  Matrix  Position  Ten  (OMPIO) 

Contents  -  Element  thermal  stress 

matrices 

Number  of  rows  -  Summation  of  element  stress 

point  and  component  orders 
Number  of  columns  -  One 

Column  record  -  Contains  all  element  thermal 

stress  matrices 

k.  Output  Matrix  Position  Eleven  (0MP11) 

Contents  -  Element  incremental 

stiffness  matrix 

Number  of  rows  -  Summation  of  element 

degrees  of  freedom 

Number  of  columns  -  Summation  of  element 

degrees  of  freedom 

Column  records  -  Each  record  contains  a 

column  of  an  element  incre¬ 
mental  stiffness  matrix 

l.  Output  Matrix  Position  Twelve  (0MP12) 

Contents  -  Element  mass  matrices 

Number  of  rows  -  Summation  of  element 

degrees  of  freedom 

Number  of  columns  -  Summation  of  element 

degrees  of  freedom 

Column  records  -  Each  record  contains  a 

column  of  an  element  mass 
matrix 

m.  Output  Matrix  Position  Thirteen  (0MP13) 

Contents  -  System  constants 

Number  of  rows  -  Twenty-seven 

Number  of  columns  -  One 

Column  record  -  Ninteen  structural  system 

constants  (for  use  outside 

of  the  . USER04.  module) 

The  following  is  a  description  of  the  variables 
in  this  matrix: 

Word  1  -  Number  of  directions  allowed 

Word  2  -  Number  of  types  of  movement  allowed 

Word  3  -  Number  of  reference  points  (highest 

reference  node  in  element  connections) 
Word  4  -  Order  of  the  reduced  system  (number 

of  l's  plus  2’s) 

Word  5  -  Number  of  bounded  degrees  of  freedom 

(number  of  0’s) 
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Word  6  -  Number  of  unknown  degrees  of 

freedom  (number  of  l’s) 

Word  7  -  Number  of  known  degrees  of 

freedom  (number  of  2’s) 

Word  8  -  Number  of  0's  plus  l’s 

Word  9  -  Element  type  code,  equal  to  zero 

if  word  1=3,  equal  to  one  otherwise 
Word  10  -  Order  of  the  total  system 
Word  11  -  Number  of  elements 
Word  12  -  Number  of  load  conditions 
Word  13  -  Word  20  -  Reserved  for  future 

expansion 

Word  21  -  Number  of  eigenvalues  requested 
Word  22  -  Eigenvalue/vector  convergence 
criteria 

Word  23  -  Maximum  number  of  iterations 
Word  24  -  Control  for  iteration  debug  print 
Word  25  -  First  normalizing  element  for 
print 

Word  26  -  Second  normalizing  element  for 
print 

Word  27  -  Control  for  guess  vector  iteration 
start 

n.  Output  Matrix  Position  Fourteen  (OMP14) 

Contents  -  Element  matrices  in  com¬ 

pressed  form 

Number  of  rows  -  Varies  depending  on  problem 
Number  of  columns  -  One  column  for  each  element 
Column  records  -  Each  record  contains  all 

element  matrices  generated 
by  .USER04.  instruction  in 
compressed  form  (to  be  used 
by  structural  modules  out¬ 
side  of  .USER04.) 

o.  Output  Matrix  Position  Fifteen  (0MP15) 

Contents  -  Prescribed  displacements 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  system 

Number  of  columns  -  Number  of  load  conditions 
Column  records  -  One  prescribed  displacement 

condition  per  column  record 
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It  should  be  noted  that  0MP1,  0MP2,  or  0MP3  and  0MP14 
are  not  actually  matrices  and,  therefore,  should  never  be 
referenced  as  Input  to  an  algebraic  matrix  operation.  0MP7, 
0MP9,  0MP11  and  0MP12  are  formed  by  placing  the  element  matrices 
into  the  output  matrix  such  that  the.  main  diagonal  of  the 
element  matrix  coincides  with  the  next  available  main  diagonal 
positions  in  the  output  matrix.  For  example,  if  the  first 
two  element  stiffness  matrices  represented  48  element  degrees 
of  freedom  each  (such  as  8  element  defining  points  with  6 
degrees  of  freedom  each)  then  the  first  would  be  located  in 
rows  one  to  48  and  column  one  to  48  in  the  output  matrix  and 
the  second  would  be  placed  into  rows  49  to  96  and  columns  49 
to  96.  Output  matrices  in  these  positions  are  almost  always 
written  in  FORMAT  II  compressed  column  format  due  to  the 
inherent  sparseness  of  non-zero  matrix  elements. 

0MP8  and  OMPIO  are  formed  by  placing  each  element 
matrix,  which  is  a  column  matrix,  into  the  succeeding  available 
row  positions  in  the  output  matrix. 


2.  Sequence  of  Output  Matrices 

Output  matrix  positions  one  to  five,  thirteen  and 
fifteen  are  output  sequentially  in  numerical  order  by  the 
Structural  Generative  System.  Since  these  seven  matrices  are 
generated  directly  from  data  contained  in  the  input  deck,  they 
are  output.  If  non-blank,  as  part  of  phase  one  or  input  phase 
operations.  Specifically,  these  seven  output  matrices  are 
placed  into  the  FORMAT  II  system  by  the  following  subroutines 
in  phase  one: 

0MP1  -  Subroutine  COPYDK 

0MP2  -  Subroutine  FMAT 

0MP3  -  Subroutine  OUTINT 

0MP4  -  Subroutine  FLOADS 

0MP5  -  Subroutine  FTR 

0MP13  -  Subroutine  TSYS 

0MP15  -  Subroutine  PDISP 


Either  output  matrix  positions  six  through  twelve  or  output 
matrix  position  fourteen  is  released  into  the  FORMAT  II  System 
during  phase  three  of  the  Structural  Generative  System.  Out¬ 
put  of  matrices  six  through  twelve  is  controlled  by  subroutine 
OUTMAT  using  utility  subroutines  US461,  US462  and  US463.  In 
contrast  to  output  of  the  first  seven  matrices,  which  is  achieved 
consecutively,  output  of  matrices  six  through  twelve  will 
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usually  occur  concurrently.  Output  matrix  position  fourteen 
is  released  to  the  FORMAT  System  by  subroutine  ELMAT.  Since 
output  matrix  fourteen  is  mutually  exclusive  with  output 
matrice  six  through  twelve  only  one  of  the  above  subroutines 
OUTMAT  or  ELMAT  is  activated. 

Operational  flow  in  the  output  phase  of  matrices  six 
through  twelve,  if  output  matrix  fourteen  is  suppressed, 
consists  of  extracting  the  compacted  element  matrices  from 
scratch  data  set  two  and  releasing  them  to  the  FORMAT  II 
System  in  the  required  form.  Due  to  the  fact  that  more  than 
one  output  matrix  may  have  been  assigned  to  the  same  instruction 
output  data  set  by  the  FORMAT  II  System,  direct  output  at 
matrix  generation  time  (phase  two)  is  impossible,  thus 
necessitating  the  use  of  scratch  data  set  two.  However,  at 
output  time,  the  optimum  procedure  is  determined  by  subroutine 
OUTMAT  to  achieve  multiple  matrix  output  per  pass  of  scratch 
data  set  two.  The  procedure  involves  determining  which  matrices 
may  be  output  during  the  same  pass  of  scratch  data  set  two  by 
(a)  comparing  the  assigned  instruction  output  data  set  number, 
and  (b)  type  of  matrix  being  output.  Output  matrix  positions 
eight  and  ten,  if  non-blank,  are  always  output  on  the  first 
pass.  Output  matrix  positions  six,  seven,  nine,  eleven,  and 
twelve  may  require  from  one  to  five  passes  of  scratch  data 
set  two,  recognizing  the  best  and  worst  possible  cases.  In 
general,  OUTMAT  may  only  output  one  matrix  per  pass  on  a  given 
instruction  output  data  set  with  the  exception  of  output  matrix 
positions  eight  and  ten  which  are  always  output  on  the  first 
pass  regardless  of  their  instruction  output  data  set  numbers. 

For  example,  given  the  following  instruction  output 
data  set  assignments  by  the  FORMAT  II  System  (all  output 
matrix  positions  referenced  are  non-blank): 


Output  Matrix  Position 

6 

7 

8 
9 

10 

11 

12 


Format  Assigned  Instruction 
Output  Data  Set 

4 

8 

3 

3 
8 

4 
3 
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OUTMAT  would  release  all  the  requested  matrices  (6-12)  to 
the  FORMAT  II  System  in  two  passes  of  scratch  data  set  two 
as  indicated  below. 

PASS  1  -  6,  7,  8,  9>  10 
PASS  2  -  11,  12 

Output  Matrix  Positions  6,  7  and  9  may  be  output  concurrently 
on  pass  one  since  they  are  to  be  located  on  different  data 
sets.  Positions  eight  and  ten  will  always  be  output  on  pass 
one.  Since  positions  11  and  12  are  to  be  located  on  different 
data  sets,  they  may  be  output  on  the  same  pass. 

If  a  matrix  is  less  than  505C  dense,  the  compressed 
column  record  format  is  invoked. 
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SECTION  IV 


OPERATIONAL  CONDITIONS 


A.  IMPLEMENTATION 

1.  Direct  Machine  Control 

Under  direct  machine  control  the  only  changes  required 
for  implementation  on  any  system  are  contained  in  one  deck, 
subroutine  MRES.  The  implementation  operations  involved  are 
explained  in  detail  in  Appendix  IX.  In  general,  the  infor¬ 
mation  which  must  be  supplied  consists  of  defining  system 
parameters;  such  as  system  input  unit,  system  output  unit, 
size  of  blank  common  work  area,  and  limiting  size  of  matrix 
capability;  and  assigning  FORMAT  II  System  functions  to  the 
available  external  storage  units. 

Under  direct  machine  control  the  Structural  Genera¬ 
tive  System  has  been  inserted  as  a  normal  user  module  with 
the  same  origin  and  accessibility  as  any  other  user  module. 

Operation  of  the  Structural  Generative  System  requires 
the  common  area  to  be  at  least  1300010  storages  and  the  number 

of  external  storage  units  to  be  at  least  eight.  Both  of  these 
facts  must  be  inserted  into  MRES  at  implementation  time. 


2.  SUBSYS  Control 

Implementation  upon  an  IBM  7090/9**  requires  an  improve¬ 
ment  of  the  loading  capabilities  of  IBSYS.  The  software 
package  selected  is  SUBSYS,  developed  by  Westinghous  Corpora¬ 
tion.  A  software  package  was  selected  in  deference  to  multiple 
passes  at  IBJGB  due  to  the  inflexibilities  of  IBLDR  under 
IBJOB.  For  example,  IBLDR  requires  the  use  of  at  least  three 
tape  drives  to  load  each  portion,  thereby  removing  units  from 
use  by  FORMAT  II.  Also,  data  would  be  inserted  in  the  middle 
of  program  deck  and  printed  output  would  be  interspersed  with 
IBJOB  Processor  Output.  The  most  decisive  advantage,  however, 
was  the  saving  of  load  time  under  SUBSYS.  Normal  load  time 
under  IBLDR  for  the  complete  program  is  approximately  eight 
minutes  on  a  7090,  whereas  under  SUBSYS  control  the  program  is 
placed  into  core  and  execution  started  with  a  load  time  of 
fifteen  to  twenty  seconds.  A  more  detailed  discussion  of 
SUBSYS  is  given  in  Appendix  X. 
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APPENDIX  I 


OVERLAY  STRUCTURE 


The  Overlay  structure  is  divided  into  two  sections. 
The  first  section  is  the  revised  FORMAT  II  Overlay 
Structure  (Reference  2)  and  the  second  section  is  the 
Structural  System  Overlay  structure. 
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FIGURE  1.1  SYSTEM  MONITOR 
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FIGURE  1.2  PREPROCESSOR  MONITOR 
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FIGURE  1.5  EXECUTION  PHASE,  Continued 


n\ 


M 

o 

CC 

o 

25  t- 

CM - 

O  • 

Eh  1 

M  M 

S 

fx, 

QftihWH  (\IQ  iHOJ  Fh 
<DKC0C'JC0KUWW2 
WWMdldaSoOUH 
iKWEKKKJKKKo: 

IdfoCOWCOCOOfofcfcW 


27 


FIGURE  1.6  EXECUTION  PHASE ,  Continued 
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FIGURE  1.7  CONTROL  SECTION 


US4100' 


29 


FIGURE  1.3.  PHASE  ONE  SECTION 
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FIGURE  1.9  PHASE  TWO  (ELEMENT  GENERATION)  AND 
PHASE  THREE  (OUTPUT)  CONTROL 
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FIGURE  1. 10  PHASE  TV/O  CONTROL  AND  UTILITY  PACKAGES 
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FIGURE  1. 11  QUADRILATERAL  THIN  SHELL  ELEMENT 
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FIGURE  1.12  FRAME  AND  INCREMENTAL  FRAME  ELEMENT 
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FIGURE  1.16  TOROIDAL  RING  ELEMENT 
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FIGURE  1,17  QUADRILATER  SHEAR  PANEL  ELEMENT 


FIG 


FIGURE  1.18  QUADRILATERAL  PLATE  ELEMENT 


APPENDIX  II 


LOGICAL  FLOWCHARTS 


A.  STRUCTURAL  GENERATIVE  SYSTEM  LOGIC  FLOW 


NO 
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B 


COPYDK 


OUTPUT  STRUCTURAL  DATA; 
DECK  AS  A  MATRIX 


' _ CHEK _ 

^PERFORM  INPUT  CROSS  CHECKING/ 


/  IS 

^  OUTPUT  MATRIX^\ 
POSITION  3  BLANK  OR^ 
INPUT  INSUFFICIENT  FOR 
^GENERATION  OF  OUTPUT 
\  MATRIX  3? 


/  OUTINT  \ 

(OUTPUT  INTERPRETED  INPUT 
\  AS  A  MATRIX 


IS 

OUTPUT  MATRIX 
^  POSITION  4  BLANK  OR 
INPUT  INSUFFICIENT  FOR 
GENERATION  OF  OUTPUT^ 
\  MATRIX  4? 


r  FLOADS  \ 

OUTPUT  GRID  POINT) 
LOADS  MATRIX  / 


IS 

.-^OUTPUT  MATRir\^ 
^  POSITION  5  BLANK  OR^ 
INPUT  INSUFFICIENT  FOR 
GENERATION  OF  OUTPUT^ 
\  MATRIX  4? 


B6 
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GENERATION  AND  OUTPUT  PHASE  LOGIC  FLOW 


'  USO^B  \ 

"control  GENERATION  AND 
.  OUTPUT  PHASE  , 


/  IS  \ 
INPUT  MATRIX 
POSITION  2 
\  BLANK?  / 


/  ININT  \ 

/RECONSTRUCT  INTERPRETEI 
\  INPUT  DATA  FROM  INPUT 
\  MATRIX  2  / 


/  is  X 

''INPUT  MATRIX 
POSITION 
\  BLANK?  . 


YES  ~ 


/ _ DEFLEX _ \ 

OBTAIN  INPUT  DISPLACEMENTS  Or) 
.STRESSES  FROM  INPUT  MATRIX  V 


/  FELEM  \ 

'CONTROL  GENERATION  OF  ELEMENT 
\  MATRICES  USING  SQUISH  , 
\ _ _  AND  ELPLUG _  / 
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APPENDIX  III 


LIST  OP  STRUCTURAL  SYSTEM  SUBROUTINE  FUNCTIONS 

Section  Page  No. 

A  Control  and  Utility  Subroutines  ....  49 

B  Quadrilateral  Thin  Shell  Element 

Subroutines .  53 

C  Frame  and  Incremental  Frame  Element 

Subroutines . 55 

D  Triangular  Plate  and  Quadrilateral  Plate 

Element  Subroutines  .  56 

E  Triangular  Thin  Shell  Element 

Subroutines .  57 

F  Triangular  Ctgss  Section  Ring  Element 

Subroutines .  59 

G  Toroidal  Ring  Element  Subroutines  ...  61 

H  Quadrilateral  Shear  Panel  Element 

Subroutines .  62 

I  Trapezodial  Ring  Element  Subroutines  .  .  63 


APPENDIX  III 


LIST  OP  STRUCTURAL  SYSTEM  SUBROUTINE  FUNCTIONS 


A.  CONTROL  AND  UTILITY  SUBROUTINES 

US04  Control  three  phases  of  operation  of 

.USER04.  module 

NTEST  Examine  matrix  name  for  suppression  code 

REC1  Perform  writing  and  reading  of  tape  records 

for  interpreted  element  input 

LOGFLO  Determine  logical  path  for  .USER04. 

module 

US04A  Control  first  pnase  (input  phase)  of 

operation  of  .USER04.  module 

INDECK  Create  data  deck  from  input  deck  matrix 

CONTRL  Select  scratch  tape  unit  for  copying 

structural  data  deck,  extracting  structural 
system  information  in  the  process 

COPYDK  Create  input  deck  matrix  from  data  deck 

INPUT  Master  control  subroutine  for  reading  and 

storing  of  structural  input  data 

FRED  Generate  grid  point  axes  transformation 

matrices 

BOUND  Read  and  store  boundary  constraints 

ELEM  Read  and  store  element  input  data 

MATCH  Compare  a  material  name  to  an  entry  name 

in  the  material  library 

LAG  Interpo3.ate  material  properties  with  respect 

to  temperature 

FGRLDS  Read  and  store  grid  point  load  conditions 

and  load  scalars 

FMAT  Generate,  revise  and/or  display  material 

library  information 
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SHIFT 

REFORM 

PHASE1 

LATCH 

FORMIN 

PHASE2 

OPEN 

PDISP 

CHEK 

OUTINT 

FLOADS 

FTR 

TSYS 

US04B 

ININT 

DEFLEX 

FELEM 

SQUISH 

ELPLUG 


Manipulate  material  library  internal 
storage  area 

Control  report  form  input  preprocessing 

Read  and  store  report  form  input  data  deck 

Compare  an  input  label  to  list  of  legal 
input  labels 

Read  and  store  report  form  table  input 

Merge  data  stored  by  PHASE1  into  logical 
sequence  for  INPUT 

Control  scratch  tape  manipulations  for 
report  form  input 

Output  prescribed  displacements  as  a 
FORMAT  matrix 

Perform  input  cross  checking 

Output  interpreted  input  as  a  matrix 

Output  grid  point  load  conditions  and  load 
scalars  as  Format  matrix 

Output  boundary  constraints  as  a  Format 
matrix 

Output  structural  system  constants  as  a 
Format  matrix 

Control  second  and  third  phases  (element 
matrix  generation  and  output)  of  operation 
of  .USER04.  module 

Create  interpreted  input  from  a  matrix 

Sort  and  store  input  displacements 

Control  generation  of  element  matrices 

Set  non-generation  indicators  for  suppressed 
matrices 

Allocate  work  storage  for  elements,  read 
interpreted  element  input,  select  proper 
element  and  store  element  matrices  on 
scratch  tape  in  compact  form 
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REC3 

RECil 

MINV 

AXTRA2 

MAB 

MSB 

BCB 

MATB 

SYMPRT 

LOC 

ELTEST 

MPRD 

TPRD 

POOF 

MSTR 

AXTRA1 

AXTRA3 

ELPRT 

OUTMAT 


Perform  writing  of  tape  records  for  element 
control  data 

Perform  compact  writing  of  tape  records  for 
generated  element  matrices 

Perform  jn-core  matrix  inversion 

Apply  grid  point  axes  transformation 

Perform  in-core  matrix  multiplication 

Perform  in-core  matrix  multiplication  where 
first  matrix  is  symmetric 

Perform  in-core  matrix  triple  product  of  the 
T 

form  T  KT  where  K  is  symmetric 

Perform  in-core  matrix  multiplication  of  the 
form  ATB 

Print  symmetrically  stored  matrix 

Compute  single  subscript  index  given  double 
subscript  indices 

Compare  input  element  control  information 
to  required  element  control  information 

Perform  generalized  in-core  matrix 
multiplication 

Perform  generalized  in-core  matrix  transpose 
multiplication 

Expands  element  matrices  to  displacement 
degrees  of  freedom 

Change  storage  arrangement  of  a  matrix 

Apply  grid  point  axes  transformations 

Apply  grid  point  axes  transformations 

Print  generated  element  matrices 

Output  generated  element  matrices  as 
Format  matrices 
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US ^4 6 1  Write  a  matrix  column  record  in  compressed 

format 

US462  Generate  each  elements  contribution  to  the 

assembly  transformation  matrix 

US463  Generate  full  column  from  symmetrically 

stored  matrix 

ELMAT  Output  compressed  element  matrices  as  a 

format  matrix 

AI  Controls  calculation  procedures  of  triangular 

integration  package 

BINT  Perform  integration  by  expansion  of  binomial 

theorem 

AK  Calculate  slope  of  line  between  two  points 

of  a  triangle 

AM  Calculate  intercept  of  line  between  two 

points  of  a  triangle 

IFAC  Calculate  n  factorial  for  a  given  n 

FJAB  Perform  defined  integration 

F6219  Perform  defined  integration 

F6211  Perform  defined  integration 

AJ  Perform  defined  integration 

GOEF  Calculate  binomial  coefficients 

F89  Perform  defined  integration 

FF100  Perform  defined  integration 
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QUADRILATERAL  THIN  SHELL  ELEMENT  SUBROUTINES 


PLUG1 

CC21 

MABC 

NEWFT 

CDELPQ 

CHDEL1 

P1PRTA 

CK11 

CT11 

M ATI 60 
CTOQM 

CTGRM 

CC1 

CMMASS 

CSTM 

CDM 

CFMTS 


Master  control 

Form  intermediate  stiffness  matrix  by 
summation 

Perform  in-core  matrix  triple  product 
multiplication 

Calculate  revised  thermal  load  formulation 

Calculate  coordinate  integrals 

,  .Tange  coordinate  integrals  in  storage 

Print  results  of  coordinate  and  material 
properties  calculations 

Control  generation  of  membrane  stiffness 
matrix 

Generate  membrance  stiffness  transformation 
sub-matrix 

Invert  8x8  matrix  in-core 

Generate  membrane  transformation  matrix  for 
transformation  from  oblique  to  geometric 
coordinates 

Generate  membrane  transformation  matrix  for 
transformation  from  geometric  to  reference 
system  coordinates 

Generate  membrane  stiffness  sub-matrices 

Generate  membrance  contribution  to  element 
mass  matrix 

Generate  membrane  contribution  to  element 
stress  matrix 

Generate  membrance  displacement  derivative 
matrix  for  element  stress  matrix  control 

Control  generation  of  membrance  contribution 
to  element  thermal  stress  and  element  therma 
load  matrices 


CFMV 


PRT1 

CK22 

CTGB 
MAT 1 7  0 
CTOGB 

CTGRB 

CC2 

CFP 

CFPB 

CSTF 

CDF 

CDFX 

CDFY 

CFFTS 

CFFV 

CFMASS 


Generate  membrane  thermal  load  matrix 

Print  membrane  and  flexure  transformation 
matrices  and  contribution  to  element 
stiffness,  stress,  thermal  stress,  thermal 
load  and  pressure 

Control  generation  of  flexure  stiffness 
matrix 

Generate  flexure  transformation  sub-matrix 

Invert  16  x  16  matrix  in-core 

Generate  flexure  transformation  matrix  for 
transformation  from  oblique  to  reference 
system  coordinates 

Generate  flexure  transformation  matrix  for 
transformation  from  geometric  to  reference 
system  coordinates 

Generate  flexure  stiffness  sub-matrices 

Control  generation  of  element  pressure  load 
matrix 

Generate  intermediate  element  pressure  load 
matrix 

Generate  flexure  contribution  to  element 
stress  matrix 

Generate  flexure  displacement  derivative 
matrix  for  element  stress  matrix 

Generate  flexure  displacement  partial  with 
respect  to  X  derivative  matrix  for  element 
stress  matrix 

Generate  flexure  displacement  partial  with 
respect  to  Y  derivative  matrix  for  element 
stress  matrix 

Control  generation  of  flexure  contribution 
to  element  thermal  stress  and  thermal  load 
matrices 

Generate  flexure  contribution  to  element 
thermal  load  matrix 

Generate  flexure  contribution  to  element 
mass  matrix 
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c. 


FRAME  AND  INCREMENTAL  FRAME  ELEMENT  SUBROUTINES 


UTS  Generate  transformation  matrix  for 

transformation  from  geometric  to  reference 

CTCQ  Generate  transformation  matrix  for  trans¬ 

formation  from  material  to  geometric  axes 

CECC  Evaxuate  effect  of  eccentricities 

INCRE  Generate  element  incremental  stiffness 

matrix 

P7PRT  Print  transformation  matrices  and  inter¬ 

mediate  calculations 

PLUG7  Master  control,  generation  of  frame  element 

matrices 

PLUG22  Master  control,  generation  of  incremental 

frame  matrices 

FINP22  Generate  element  incremental  matrix  for 

the  incremental  frame  element 
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D. 


TRIANGULAR  PLATE  AND  QUADRILATERAL  PLATE  ELEMENT  SUBROUTINES 


DIRCOS 

BCB12 

KOBLIQ 

P1718M 

SELQ 

FTELQ 
PLUG 17 
PLUG 18 
TRlSST 
FBMPlf 


To  evaluate  the  direction  cosines  given  any 
three  points  that  define  a  plane 

To  evaluate  a  triple  product  matrix  where 
all  matrices  are  square 

To  perform  a  transformation  on  the  e3ement 
stiffness  matrix  AKEL  (TRANT#AKEL*TRAN) 

Initialize  element  properties  from  the 
material  table  for  membrane  properties  with 
flexural  data  only  for  PLUG17  and  PLUG18 

To  transform  the  stress  matrix  generated  by 
PLUG17  and  PLUG18  to  the  stress  system  required 
(generally  local) 

To  transform  the  element  thermal  load  matrix 
into  global  or  oblique  system 

Master  control  for  the  generation  of 
triangular  plate  element  matrices 

Master  control  for  the  generation  of 
quadrilateral  plate  element  matrices 

From  transformation  matrices  for  the  stress 
and  thermal  stress  matrices 

To  evaluate  the  B  matrix  for  the  quadrilateral 
plate  elements,  out  of  plane 
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TRIANGULAR  THIN  SHELL  ELEMENT  SUBROUTINES 


PLUG  2 
ASSY2 

DCD 

DTAPR 

PFMASS 

PMMASS 

MATPR 

NEWFT1 

PTBM 

PTMGS 

DPQINT 

PKM 

PSTM 

PFMTS 

PPM  VI 

APRT 


Master  Control 

Assemble  membrane  and  flexure  stiffness 
sub-matrices 

Perform  in-core  matrix  multiplication  of 
the  form  TST  where  T  is  a  diagonal  matrix  and 
S  is  a  symmetric  matrix 

Process  coordinate  data 

Calculate  the  flexural  contribution  to  the 
mass  matrix 

Calculate  the  membrane  contribution  to  the 
mass  matrix 

Generate  material  properties  matrices 

Calculate  revised  thermal  matrices 

Generate  membrane  transformation  matrix 
for  transformation  from  oblique  to  geometric 
coordinate  systems 

Generate  membrane  transformation  matrix  for 
transformation  from  geometric  to  reference 
system  coordinates 

Calculate  coordinate  integrals 

Generate  membrane  contribution  to  element 
stiffness  matrix 

Generate  membrane  contribution  to  element 
stress  matrix 

Generate  membrane  contribution  to  element 
thermal  load  and  thermal  stress  matrices 

Generate  intermediate  membrane  thermal  load 
matrix 

Print  membrane  and  flexure  transformation 
matrices  and  contributions  to  element 
stiffness,  stress,  thermal  stress,  thermal 
load  and  pressure  load  matrices 


PTFGS 

PKF 

CCB 

PFP 

PFFTS 

PFFV1 

PSTF 

PTBF 

EPRT 

PLAS2D 

PNC1NE 

PNG1NE 


Generate  flexure  transformation  matrix 
for  transformation  from  geometric  to 
reference  system  coordinates 

Generate  flexure  contribution  to  element 
stiffness  matrices 

Perform  in-core  matrix  triple  product  of 
T 

the  form  T  KT  where  K  is  symmetric  and 
accuracy  criteria  is  imposed 

Generate  element  pressure  load  matrix 

Generate  flexure  contribution  to  element 
thermal  stress  and  thermal  load  matrices 

Generate  intermediate  flexure  thermal 
load  matrix 

Generate  flexure  contribution  to  element 
stress  matrix 

Generate  flexure  transformation  matrix  for 
trnasformation  from  oblique  to  geometric 
coordinate  systems 

Print  final  element  matrices 

Non-functional 

Non-functional 

Non-functional 
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F.  TRIANGULAR  CROSS  SECTION  RING  ELEMENT  SUBROUTINES 


PLUG  6 
EXPCOL 

EXPSIX 

TRAIC 

TESTJ 

TRCPRT 

TRAIE 

TIEPRT 

TRAIK 

TIKPRT 

TRAIFP 

TFPPRT 

TRAIFT 

TFTPRT 

TRAIS 

TISPRT 

TRAITS 

TTSPRT 

TRAIM 

TIMPRT 

TEA IPS 

TFSPRT 


Master  control 

Expand  column  matrix  to  six  degrees  of 
freedom  per  point 

Expand  symmetric  matrix  to  six  degrees  of 
freedom  per  point 

Generate  coordinate  transformation  matrices 
and  integrals 

Impose  accuracy  criteria  upon  integrals 

Print  coordinate  transformation  matrices 
and  integrals 

Generate  material  properties  matrices 
Print  material  properties  matrices 
Generate  element  stiffness  matrix 
Print  element  stiffness  matrix 
Generate  element  pressure  load  matrix 
Print  element  pressure  load  matrix 
Generate  element  thermal  load  matrix 
Print  element  thermal  load  matrix 
Generate  element  stress  matrix 
Print  element  st: ess  matrix 
Generate  element  thermal  stress  matrix 
Print  element  thermal  stress  matrix 
Generate  element  mass  matrix 
Print  element  mass  matrix 
Generate  element  pre-strain  load  matrix 
Print  element  pre-strain  load  matrix 
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TRAIST 

TSTPRT 

PL6PRT 


Generate  element  pre-stress  load  matrix 
Print  element  pre-stress  load  matrix 
Print  all  element  matrices  generated 
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G 


TOROIDAL  RING  ELEMENT  SUBROUTINES 


PLUG  5 

ROMBER 

F^ 

F5 

F6 

BMATRX 

DMATRX 

GAMMAT 

FCURL 

PLMX 

SCRLK 

SOLVE 

QUADI 

PRINT 5 


Master  control,  generate  element  stiffness, 
thermal  load,  pressure  load,  stress  and 
thermal  stress  matrices 

Perform  integration  by  Romberg  Method 

Evaluate  a  defined  function  for  ROMBER 

Evaluate  a  defined  function  for  ROMBER 

Evaluate  a  defined  function  for  ROMBER 

Generate  coordinate  transformation  matrix 

Generate  materia3  properties  matrix 

Generate  material  transformation  matrix 

Generate  intermediate  thermal  load  matrix 

Generate  intermediate  pressure  load  matrix 

Generate  intermediate  stress  matrix 

Solve  for  element  stress  coefficients 

Performs  integration  using  numerical 
quadrature  methods 

Print  generated  element  matrices 
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H. 


QUADRILATERAL  SHEAR  PANEL  ELEMENT  SUBROUTINES 


PLUG14 

MULTF 

P 1 4  PRT 


Master  control,  generate  element  stiffness, 
stress  and  mass  matrices 

Performs  in-core  specialized  matrix 
multiplication 

Prints  intermediate  calculations  and 
generated  element  matrices 
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I. 


TRAPEZODIAL  RING  ELEMENT  SUBROUTINES 


PLUG  8 
SUBI 

ZMRD 

ZVRD 

KMPY 

ERIC 

P8MASS 


Master  control  for  the  generation  of 
trapezodial  ring  element  matrices 

r  r  ZQ 

Solves  the  integral  H  =  I  I  drdz 

for  values  of  Q  =  0,  1  and  2  for  a  trapezoid 

Perform  double  precision  multiplication  of 
two  matrices  (C  =  A  *  B) 

Perform  double  precision  multiplication  of 

T 

two  matrices  (C  =  A  #  B) 

Multiply,  in  double  precision,  each  element 
of  a  matrix  by  a  scalar  to  form  a  resultant 
matrix 

Compute  the  pressure  load  vector  for  the 
trapezoaial  ring 

Generate  element  mass  matrix  for  the 
trapezodial  ring 
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APPENDIX  IV 


LIST 

ASSEM 

ASSEMC 

ASSEMS 

COLMRD 

COLREP 

DECODE 

DEJNC 

DEJNR 

DEJOIN 

DISPL1 

DISPPR 

EIG 

EIGB 

EIG1 

EIGPPR 


OF  SUBROUTINE  FUNCTIONS  OF  MODULES 
ADDED  TO  THE  FORMAT  II  SYSTEM 


Control  routine  for  assembling  element 
matrices  using  the  .ASSEM.  abstraction 
instructions 

Assemble  thermal  load  element  matrices 

Assemble  element  stiffness,  element  mass 
and  element  incremental  matrices 

Utility  subroutine  to  uncompress  a  column 
of  a  matrix  in  dynamic  storage 

Generate  a  rectangular  matrix  by  repeating 
the  input  column  the  specified  number  of 
times  using  the  .COLREP.  abstraction 
instruction 

Generate  a  copy  of  a  Format  matrix  on  a 
scratch  tape  in  full  format 

Perform  column  partitioning  of  a  matrix 

Perform  row  partitioning  of  a  matrix 

Control  routine  for  matrix  partitioning 
using  the  .DEJOIN',  abstraction  instruction 

Printing  routine  used  by  GPRINT 

Controls  printing  of  displacements  from 
GPRINT 

Main  iteration  routine  of  .EIGEN1.  module 

Controls  iteration  routine  EIG 

Controls  routine  for  calculating  eigenvalues 
and  eigenvectors  using  the  .EIGEN1. 
abstraction  instruction 

Controls  printing  of  eigenvalues  and 
vectors 
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ELREAD 

EPRINT 

FORCE 

FORCE1 

F0RCE2 

FREEUP 

6PRINT 

GPRNT1 

IDENTC 

IDENT 
INST04 
INST 05 
INST43 
INST60 

MATPRT 


Routine  to  decode  the  compressed  element 
matrix  output  by  the  .USERO^I.  module 

Controls  printing  of  element  stresses  and 
forces  when  using  the  .EPRINT.  abstraction 
instruction 

Control  routine  to  calculate  element  force 
when  using  the  .FORCE,  abstraction  instruction 

Routine  to  set  up  dynamic  storage  and 
control  calculation  of  element  forces  for 
each  element 

Calculates  element  force 

Routine  to  return  work  storage  to  available 
use 

Control  routine  to  print  reactions, 
displacement,  eigenvalues  and  eigenvectors 
when  using  the  .GPRINT.  abstraction 
instruction 

Controls  storage  and  correct  print  transfers 
for  .GPRINT. 


Generates  an  identity  matrix  when  using  the 
.IDENTC.  abstraction  instruction 


Generates  an  identity  matrix  when  using  the 
.IDENTR.  abstraction  instruction 

Instruction  analyzer  for  the  .GPRINT. 
instruction 


Instruction  analyzer  for  the  .EPRINT. 
instruction 

Instruction  analyzer  for  the  .DEJOIN, 
instruction 

Instruction  analyzer  for  the  .STRESS,  and 
.FORCE,  instructions 

Controls  printing  of  a  user  matrix  when 
using  .GPRINT. 
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MATSUP  Insert  suppressed  input  matrix  names  into 

the  Format  system 

NULL  Generates  a  null  matrix  using  the  .NULL, 

abstraction  instruction 

REACTP  Controls  printing  of  reactions  when  using 

.GPRINT. 

REGE2  Utility  routine  used  by  EIG1 

STRESS  Control  routine  to  calculate  element  stresses 

when  using  the  .STRESS,  abstraction  instruction 

STRES1  Routine  to  set  up  dynamic  storage  and 

control  calculation  of  element  stresses 
for  each  element 

STRES2  Calculates  element  stresses 

STRPRT  Prints  element  stresses  and  forces 

Generates  a  tape  summary  of  matrices  on  a 
specified  logical  unit 
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APPENDIX  V 


REVISIONS  TO  FORMAT  SYSTEM  DECKS 


Subroutine  Name:  PREP 

Purpose  of  Revision:  Provide  the  cabability  for  suppressing 

input  matrices  in  an  abstraction  instruction 

Method:  Fortran  statement  number  200  was  changed  to 

initialize  the  variable  NUMSUP  to  zero.  NUMSUP  was  added 
to  the  calling  sequence  to  subroutine  INST  and  upon  return 
will  contain  the  number  of  input  suppressed  matrices  located 
during  compilation  of  the  input  abstraction  instructions. 

If  NUMSUP  is  non-zero  upon  return  from  INST,  then  subroutine 
MATSUP  is  called  to  introduce  the  input  suppressed  matrices 
into  the  Format  system. 
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Subroutine  Name:  EUTLlJ 


Purpose  of  Revision:  To  retain  the  second  word  in  the  matrix 
header  when  copying  a  matrix.  Thus  the  KODE  word  in  the 
matrix  header  will  not  be  changed  to  zero  when  copying  a 
matrix . 

Method:  After  EUTL3  finds  the  matrix  to  be  copied,  a  back¬ 
space  is  issued  to  read  the  KODE  word  of  the  matrix  header. 
This  KODE  is  transferred  to  the  matrix  header  of  the  new 
matrix . 


Subroutine  Name:  EUTL5 

Purpose  of  Revision:  To  insure  that  the  second  word  in  the 
matrix  header  is  given  the  value  assigned  by  the  user  in  the 
calling  argument  of  EUTL5  to  the  variable  KODE. 

Method:  When  writing  the  matrix  header  write  the  variable 

KODE  from  the  argument  list  as  the  second  word  of  the  header. 
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Subroutine  Name: 


INST 


Purpose  of  Revision:  Provide  distinct  names  for  suppressed 

matrices  and  record  the  number  of  input  suppressed  matrices 
encountered  while  compiling  the  abstraction  instructions. 

Method:  The  variable  NUMSUP  was  added  to  the  calling  sequence 

of  INST  and  inserted  into  the  calling  sequence  for  INST90  to 
record  the  number  of  input  suppressed  matrices  located.  The 
variable  KOUNT  was  initialized  in  INST  as  zero  and  inserted 
in  the  calling  sequence  to  INST90  to  be  used  as  a  counter  to 
ensure  the  generation  of  unique  suppressed  matrix  names. 


70 


Subroutine  Name:  INST90 

Purpose  of  Revision:  Introduce  unqiue  matrix  names  into  the 

Format  system  for  both  output  and  input  suppressed  matrices 
for  the  .USERXX.  form  input  abstraction  instruction. 

Method:  The  variables  KOUNT  and  NUMSUP  were  added  to  the 

calling  sequence  for  subroutine  INST90,  KOUNT  to  indicate 
the  next  unique  suppressed  matrix  name  and  NUMSUP  to  record 
the  number  of  input  suppressed  matrices  encountered.  Whether 
input  or  output,  a  suppressed  matrix  is  located  and  a  name 
assigned  to  it  by  the  same  procedure.  All  blanks  have  been 
removed  from  the  input  instruction  by  subroutine  PUTL1.  The 
instruction  is  scanned,  first  the  output  side,  then  the  input 
side.  Whenever  a  matrix  position  has  length  zero,  i.e.  the 
matrix  name  was  blank,  the  suppressed  name  is  created  by 
inserting  four  slashes  for  the  first  four  characters  and 
adding  one  to  KOUNT  and  inserting  that  value  as  the  last  two 
characters.  The  sign  of  the  matrix  is  set  to  plus.  If  the 
suppressed  matrix  was  an  input  matrix,  i.e.  was  encountered 
on  the  right  sign  of  the  equal  sign,  then  NUMSUP  is  incremented 
by  one. 
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Subroutine  Name:  MATH 

Purpose  of  Revision:  Provide  the  capability  of  placing 

card  input  matrices  on  the  same  data  set  as  input  suppressed 
matrices,  if  necessary. 

Method:  If  card  input  matrices  are  present  then  subroutine 

MATH  is  called  to  place  these  matrices  on  NDATA,  the  data 
set  selected  by  the  Format  pre-processor  for  that  purpose. 
However,  if  input  suppressed  matrices  were  present  then  they 
already  exist  on  NDATA  at  the  time  that  MATR  is  called.  There¬ 
fore  MATR  had  to  be  revised  to  check  NUMD,  the  variable 
indicating  ohe  number  of  matrices  already  on  NDATA,  before 
recording  card  input  matrices  on  NDATA.  If  NUMD  is  zero 
then  NDATA  is  rewound  and  a  data  set  header  written  and  the 
card  input  matrices  recorded.  If  NUMD  is  non-zero,  then 
NDATA  is  searched  until  the  data  set  trailer  is  located,  then 
backspaced  over  the  data  set  trailer  and  then  the  card  input 
matrices  are  recorded. 
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Subroutine  Name:  ALOC 

Purpose  of  Revision:  Pass  the  value  of  IPKINT,  the  Format 

system  print  control,  to  subroutine  ALOC*!  for  transmittal 
when  operating  under  SUBSYS  control. 

Method:  The  variable  IPRINT  was  added  to  the  calling 

sequence  for  ALOC  and  inserted  into  the  call  statement  to 
ALOC 4. 
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Subroutine  Name:  AL0C31 


Purpose  of  Revision:  Indicate  to  the  Format  system  the 

number  of  scratch  data  sets  vequired  to  execute  the  .USERO^. 
instruction. 

Method:  The  variable  MINSOR(94)  was  set  equal  to  four. 


Subroutine  Name:  ALOC^J 

Purpose  of  Revision:  Store  on  the  instruction  data  set, 

NINST,  the  necessary  data  for  re-initialization  of  program 
constants  for  operation  under  Subsys  control. 

Method:  When  proceeding  from  program  to  program  under 

Subsys  control,  the  necessary  system  parameters  must  be 
reset  at  the  start  of  each  program.  The  values  of  the 
parameters  are  obtained  as  follows:  NPIT,  the  system  input 
unit,  NPOT,  the  system  output  unit,  KONST,  the  maximum 
matrix  size  capability  and  NWORK,  the  number  of  available 
work  storages  are  obtained  via  the  COMMON  statement  in 
ALOC1!.  The  value  of  IPRINT  is  received  through  the  calling 
sequence  of  ALOC*).  These  five  system  parameters,  NPIT, 
NPOT,  KONST,  NWORK  and  IPRINT,  are  added  as  extra  words  to 
the  return  instruction  recorded  on  NINST. 


APPENDIX  VI 


MAGIC  ERROR  MESSAGES 


The  following  is  a  list  of  all  MAGIC  error  messages. 

The  list  is  divided  into  three  sections.  The  first  section 
contains  all  Format  error  messages  (Reference  2)  and  is 
divided  into  two  parts,  the  preprocessor  error  message, 
and  the  execution  error  message.  The  second  section  contains 
error  messages  from  all  arithmetic  and  non-arithmetic  modules 
developed  to  be  used  in  conjunction  with  the  structural 
generative  module.  The  third  section  contains  error  messages 
generated  by  the  structural  generative  system  itself,  which 
is  the  .USER04.  module.  I A  each  section  the  error  messages 
are  in  alphabetic  order.  The  error  message  codes  are 
significant  in  that  the  first  six  characters  identify  che 
subroutine  from  which  the  error  message  eminates.  The 
occurrence  of  ####  in  the  error  message  indicates  that 
additional  descriptive  information  will  be  supplied. 
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SECTION  1. 


FORMAT  ERROR  MESSAGES 


ALOCOl  INSUFFICIENT  STORAGE  FOR  ALLOCATION 

The  number  of  words  of  working  storage  available  to  the 
allocator  is  less  than  the  minimum  required  for  complete 
allocation  of  this  Job.  This  condition  can  be  remedied  by 
reducing  the  number  of  abstraction  instructions. 

ALOC02  INVALID  NO.  OF  MASTER  INPUT/OUTPUT  DATA  SETS  SPECIFIED 

The  number  of  master  input  data  sets  and/or  master  output 
data  sets  specified  on  "INPUT  TAPE"  or  "OUTPUT  TAPE"  cards  is 
greater  than  the  number  of  master  input  and/or  master  output 
data  sets  defined  in  the  machine  resources  area  as  being 
available  to  FORMAT  II.  This  condition  can  be  remedied  by 
reducing  the  number  of  "INPUT  TAPE"  and/or  "OUTPUT  TAPE" 
cards. 


ALOC03  INSUFFICIENT  UTILITY  DATA  SETS  FOR  ALLOCATION 

The  number  of  data  sets  with  the  FOR.MAT  II  system  function 
IOUTIL  is  less  than  the  minimum  number  required  by  the  FORMAT 
II  Preprocessor  during  the  preprocessing  phase.  This  condition 
can  be  remedied  by  reducing  the  number  of  "INPUT  TAPE"  or 
"OUTPUT  TAPE"  cards  used  in  this  job  or  by  modifying  the  machine 
resources  area,  (i.e.,  define  additional  data  sets  with  the 
FORMAT  II  system  function  IOUTIL. 

ALOCOl  MASTER  OUTPUT  DATA  SET  »»»*»»  SPECIFIED  IN  SAVE 
INSTRUCTION  NOT  DEFINED 

A  "SAVE"  instruction  in  the  abstraction  instruction  sequence 
refers-  to  a  master  output  data  set  name  which  has  not  been 
defined  on  an  "OUTPUT  TAPE"  card.  This  condition  can  be  remedied 
by  including  the  appropriate  "OUTPUT  TAPE"  card  in  the  job. 

ALOC05  MASTER  INPUT  DATA  SET  ******  HAS  NOT  BEEN  MOUNTED 

The  FORMAT  II  allocator  has  not  been  able  to  locate  a  master 
input  data  set  which  has  been  specified  on  an  "INPUT  TAPE"  card. 
This  condition  is  usually  caused  by  mounting  the  correct  master 
input  data  set  on  the  wrong  unit  or  by  misspelling  the  name  of 
a  properly  mounted  data  set  on  the  "INPUT  TAPE"  card. 
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A.LCC06  MATRIX  ******  IS  NON-EXISTENT 


A  matrix,  which  appears  in  the  abstraction  instruction 
sequence  and  which  has-  not  been  created  in  the  abstraction 
instruction  sequence  prior  to  its  use,  has  not  been  card  input 
and  does  not  appear  on  any  master  input  data  set.  This  con¬ 
dition  can  be  remedied  by  inputting  the  required  matrix. 

ALOC07  DUPLICATE  MATRICES  ******  IN  MATRIX  DATA 

Two  or  more  matrices  with  the  same  name  have  been  card 
input.  This  condition  can  be  remedied  by  ensuring  that  all 
card  input  matrices  have  unique  names. 

AL0C08  CREATED  MATRIX  ******  IS  CARD  INPUT 

A  matrix  which  is  created  in  the  abstraction  instruction 
sequence  has  trie  same  name  as' a  matrix  which  is  card  input. 

This  condition  can  be  remedied  by  removing  the  matrix  in 
question  from  the  card  input  matrix  data. 

AL0C09  SUBSCRIPTS  OF  ******  EXCEED  DIMENSIONS  OF  MATRIX 

The  indices  of  a  scalar  element  to  be  extracted  from  a 
matrix  are  larger  than  the  dimensions  of  that  matrix.  This 
condition  can  be  remedied  by  changing  the  indices  of  the  scalar 
element  specified  in  the  abstraction  instruction  sequence. 

ALOCIO  DUPLICATE  MATRICES  CREATED  —  NAME  ****** 

A  matrix  in  the  abstraction  instruction  sequence  appears 
more  than  once  on  the  left  side  of  an  equal  sign.  This  condition 
can  be  remedied  by  ensuring  that  all  matrix  names,  which  appear 
on  the  left  side  of  an  equal  sign  in  the  abstraction  instruction 
sequence,  have  unique  names. 

AL0C11  MATRIX  ******  IS  USED  MORE  THAN  ONCE  IN  INSTRUCTION  *** 

The  matrix  names  appearing  in  the  indicated  instruction 
in  the  abstraction  instruction  sequence  do  not  have  unique 
names.  This  condition  can  be  remedied  by  ensuring  that  all 
matrix  names  appearing  in  a  given  abstraction  instruction  have 
unique  names. 

AL0C12  CREATED  MATRIX  ******  HAS  BEEN  INPUT 

A  matrix  which  appears  on  the  left  side  of  an  equal  sign, 
in  the  abstraction  instruction  sequence  has  the  same  name  as 
a  required  input  matrix.  This  condition  can  be  remedied  by 
either  changing  the  name  of  the  required  input  matrix  or  by 
changing  the  name  of  the  matrix  which  appears  on  the  left  side 
of  the  equal  sign. 
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AL0C13  MATRICES  CREATED  IN  INSTRUCTION  ***  NEVER  REFERENCED 


The  indicated  abstraction  instruction  in  the  abstraction 
instruction  sequence  creates  matrices,  none  of  which  are 
referenced  in  subsequent  abstraction  instructions.  This  con¬ 
dition  can  be  remedied  by  removing  the  indicated  abstraction 
instructions  from  the  abstraction  instruction  sequence. 

AL0C14  DUPLICATE  STATEMENT  NUMBERS  ****** 

Duplicate  statement  numbers  occur  in  the  abstraction 
Instruction  sequence.  This  condition  can  be  remedied  by 
ensuring  that  each  statement  number  occuring  in  the  abstraction 
Instruction  sequence  is  unique. 

AL0C15  GO  TO  DESTINATION  ******  IS  MISSING  OR  OCCURS  BEFORE 
IF  TEST 

An  abstraction  instruction  "IF"  in  the  abstraction 
instruction  sequence  conditionally  transfers  to  a  non-exister.t 
statement  number  cr  transfers  to  a  statement  number  on  an 
abstraction  instruction  which  is  sequentially  earlier  than 
the  "IF"  abstraction  instruction  in  question.  This  condition 
can  be  remedied  by  ensuring  that  all  "I?"  abstraction  instruction 
conditionally  transfer  to  a  statement  number  which  occurs 
sequentially  after  the  "IF"  abstraction  instruction. 

AL0C16  NON  CONFORMABLE  MATRICES  IN  INSTRUCTION  *** 

Two  matrices  occur  in  the  indicated  abstraction  instruction 
in  the  abstraction  instruction  whose  dimensions  are  such  that 
the  matrix  operation  in  the  Indicated  abstraction  instruction 
is  not  defined. 

EXEQ01  THE  FORMAT  SYSTEM  IS  UNABLE  TO  LOCATE  MATRIX  ****** 

This  message  signifies  a  malfunction  of  the  user-coded 
subroutine  which  creates  the  specified  matrix. 

EXEQ02  CONFORMABILITY  ERROR  1“  INSTRUCTION  CREATING  MATRIX  ****** 

The  matrices  involved  on  the  right  side  of  the  equals 
sign  in  the  instruction  creating  the  specified  matrix  are 
unconformable . 
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EXEQ03  MATRIX  »»»»»»  IS  SINGULAR 

The  matrix  is  singular  in  a  ’’Solution  of  Equations" 
routine,  i.e.,  in  "STRCUT,"  "SEQEL”  or  "INVERS." 

EXEQ04  AN  ERROR  HAS  OCCURRED  IN  THE  USER  ••  MODULE 

An  error  recognized  by  the  indicated  user-coded  subroutine 
has  occurred.  This  will  usually  be  associated  with  incorrect 
definition  of  the  special  data  for  use  by  thesubroutine. 

EXEQ05  AN  IMPROPER  UPDATE  HAS  BEEN  MADE  TO  THE  FORMAT  SYSTEM  - 
EXECUTION  TERMINATED 

A  new  permanent  module  has  not  been  properly  incorporated. 

The  FORMAT  II  systems  analyst  should  be  contacted  if  this  error 
message  occurs. 

EXEQ05  AN  ERROR  HAS  OCCURRED  IN  A  USER-CODED  MODULE,  ERROR 
HAS  BEEN  WRITTEN  BY  MODULE 

An  error  has  occurred  in  a  non-Format  module.  The 
specific  error  has  been  written  by  the  subroutine  in  which 
the  error  was  found. 

EUTL3  THE  SYSTEM  IS  UNABLE  TO  LOCATE  A  MATRIX.  A  TAPE  SUMMARY 
OF  LOGICAL  UNIT  ****  WILL  FOLLOW 

The  Format  system  is  unable  to  locate  a  matrix.  A  tape 
summary  of  the  data  set  on  which  the  matrix  should  have  been 
is  printed  out.  The  name  of  the  matrix  will  appear  in  the 
next  error  message. 

INST 01  ILLEGAL  OPTION  SPECIFIED  ON  $INSTRUCTION  CARD 

An  option  other  than  "SOURCE”  or  "N0S0URCE"  has  been 
specified  on  the  "$ INSTRUCTION"  card  or  a  valid  option  starts 
before  card  column  16  in  the  "$INSTRUCTI0N"  card. 

INST02  INVALID  STATEMENT  NUMBER  SPECIFIED 

The  statement  number  which  is  specified  in  card  columns 
1-5  of  the  abstraction  instruction  'preceding  this  error  message 
is  composed  of  characters  which  are  not  all  numeric. 

INST 03  INVALID  CHARACTER  IN  COLUMN  6 

Card  column  6  of  the  abstraction  instruction  preceding 
this  error  message  contains  a  character  other  than  a  blank  or  zero. 


80 


INST04  UNRECOGNIZABLE  OPERATION  CODE 

The  operation  specified  in  the  abstraction  instruction 
preceding  this  error  message  is  not  contained  in  the  FORMAT 
II  library  of  valid  operations. 

INST 0 4  SYNTAX  ERROR  IN  -  GPRINT  -  INSTRUCTION 

INST04  ILLEGAL  NEGATIVE  INPUT  VALUE  FOR-  SUPPRESSION  OF  MATRIX 
ELEMENTS,  ABSOLUTE  VALUE  TAKEN 

The  effective  zero  value  for  suppression  of  element 
print  in  the  GPRINT  instruction  must  be  positive. 

INST04  INVALID  SPECIFICATION  OF  INPUT  MATRICES 

An  incorrect  number  of  input  matrices  has  been  specified 
in  the  GPRINT  Instruction. 

INST 0 4  ILLEGAL  SPECIFICATION  OF  COLUMN  HEADERS 

Incorrect  syntax  in  GPRINT  when  written  column  headers. 

\ 

INST 05  SYNTAX  ERROR  IN  -  IF  -  INSTRUCTION 

The  abstraction  instruction  "IF"  which  precedes  this  error 
message  contains  an  unrecognizable  field. 

INST05  SYNTAX  ERROR  IN  -  EPRINT  -  INSTRUCTION 

INST 05  INVALID  PRINT  CONTROL 

The  print  control  in  the  EPRINT  instruction  was  incorrectly 
specified. 

INST 05  ILLEGAL  NEGATIVE  INPUT  VALUE  FOR  SUPPRESSION  OF  MATRIX 
ELEMENTS,  ABSOLUTE  VALUE  TAKEN 

The  effective  zero  value  for  suppression  of  element  print 
in  the  EPRINT  INSTRUCTION  must  be  position. 

INST05  ILLEGAL  SUPPRESSION  OF  PARAMETER 

The  code  indicating  either  stress  or  force  matrices  to 
be  printed  has  been  omitted. 
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INST06  SYNTAX  ERROR  IN  -  PRINT  -  INSTRUCTION 

The  abstraction  instruction  "PRINT"  which  precedes  this 
error  message  contains,  an  unrecognizable  field. 

INST07  SYNTAX  ERROR  IN  -  SAVE  -  INSTRUCTION 

The  abstraction  instruction  "SAVE"  which  precedes  this 
error  message  contains  an  unrecognizable  field. 

INST08  OPERATION  CODE  NOT  INCLOSFD  BY  PERIODS 

The  operation  code  in  the  abstraction  instruction  preceding 
this  error  message  is  not  inclosed  by  periods. 

INST09  SYNTAX  ERROR  IN  ARITHMETIC  INSTRUCTION 

The  arithmetic  abstraction  instruction  preceding  this 
error  message  contains  an  unrecognizable  field. 

INST 10  THIS  INSTRUCTION  IS  MOT  AVAILABLE 

An  incomplete  modification  to  the  instruction  cu.  d  procersor 
area  has  been  made.  The  FORMAT  II  systems  analyst  should  be 
notified  immediately. 

INST43  INVALID  SPECIFICATION  OF  PARAMETERS 

A  syntax  error  has  occurred  in  the  DEJOIN  instruction. 

INST 4 3  -  INVALID  INDEX  SPECIFIED 

Parameter  specifying  row  or  column  dejoin  is  illegal. 

INST 4 3  INVALID  MATRIX  NAME 

The  DEJOIN  instruction  contains  one  invalid  matrix 

name. 

MATH 01  UNRECOGNIZABLE  OPTIONS  ON  $MATRIX  CARD  STANDARD  OPTIONS 
USED  WARNING  ONLY 

An  option  other  than  "LIST",  "NOLIST",  "PRINT"  or  "NOPRINT" 
has  been  specified  on  the  "$MATRIX"  card  or  a  valid  option 
starts  before  column  16  on  the  "$MATRIX"  card. 
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MATR02  CARD  FOLLOWING  $  MATRIX  CONTROL  CARD  IS  NOT  A  HEADER 
CARD  OR  HAS  -  H  -  MISSING  IN  COLUMN  1 

The  first  card  following  the  "$MATRIX"  card  must  be  the 
header  card  of  the  first  card  input  matrix.  All  data  up  to 
the  first  header  card  will  be  ignored. 

MATRC3  NAME  ON  DATA  CARD  IS  DIFFERENT  FROM  NAME  ON  HEADER 
CARD.  THIS  MATRIX  WILL  BE  IGNORED 

The  matrix  header  card  and  all  .associated  matrix  data  must 
have  the  same  name  in  card  columns  67-72. 

MATR04  ROW  AND/OR  COLUMN  VALUE  EXCEED  MATRIX  SIZE,  IS  NEGATIVE 
OR  IS  ZERO  AND  VALUE  IS  NONZERO.  THIS  MATRIX  WILL  BE 
IGNORED . 

b 

An  element  specified  in  the  matrix  card  input  data  is  out¬ 
side  the  dimensions  of  the  matrix,  of  which  it  is  supposed  to 
be  an  element. 

MATR05  MATRIX  EXCEEDS  ALLOTTED  STORAGE.  THIS  MATRIX  WILL  BE 
IGNORED . 

The  number  of  words  of  working  storage  available  to  the 
latrix  card  reader  module  is  less  than  the  number  of  words 
necessary  to  contain  all  the  nonzero  elements  in  one  of  the 
card  input  matrices.  The  number  of  words  of  working  storage 
required  for  a  given  matrix  is  approximately  three  (3)  times 
the  number  of  nonzero  elements  in  the  matrix.  This  condition 
can  be  remedied  by  decreasing  the  number  of  nonzero  elements 
in  the  card  input  matrix. 

MATrt06  DUPLICATE  I-J  VALUES  ENCOUNTERED.  THIS  MATRIX  WILL  BE 
IGNORED.  I  =  **»*  J  =  **** 

Two  or  more  values  have  been  specified  for  the  same  matrix 
element  in  the  matrix  card  input  data.  This  condition  can  be 
remedied  by  ensuring  that  each  matrix  element  has  a  unique  set 
of  I  -  J  values. 

MATR07  I  VALUE  ON  HEADER  CARD  EXCEEDS  ALLOTTED  SIZE  OR  IS  LESS 
THAN  OR  EQUAL  TO  ZERO.  THIS  MATRIX  WILL  BE  IGNORED . 

The  number  of  rows  specified  in  the  header  card  of  a  card 
input  matrix  is  greatc”  than  the  maximum  number  of  rows  permitted 
in  a  matrix  which  is  processed  by  the  FORMAT  II  system,  or  is 
less  than  or  equal  to  zero.  This  condition  can  be  remedied  by 
reducing  the  dimensions  of  the  card  input  matrix. 
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MATROS  J  VALUE  ON  HEADER  CARD  EXCEEDS  ALLOTTED  SIZE  OR  IS  LESS 
THAN  OR  EQUAL  TO  ZERO.  THIS  MATRIX  WILL  BE  IGNORED. 

The  number  of  columns  specified  in  the  header  card  of  a 
card  input  matrix  is  greater  than  the  maximum  number  of  columns 
permitted  in  a  matrix  which  is  processed  by  the  FORMAT  II  system, 
or  is  less  than  or  equal  to  zero.  This  condition  can  be  remedied 
by  reducing  the  dimensions  of  the  matrix, 

MATR09  FIRST  CHARACTER  OF  MATRIX  NAME  ON  HEADER  MUST  BE 
ALPHABETIC.  THIS  MATRIX  WILL  BE  IGNORED. 

The  matrix  name  which  is  to  be  given  to  a  set  of  matrix 
card  input  data  and  which  is  punched  in  card  column  67-72  of 
the  header  card  and  all  associated  data  cards  must  follow  the 
rules  for  valid  matrix  names  as  defined  for  the  FORMAT  II 
system.  The  rule  which  applies  in  this  case  is  that  the  fi^st 
character  of  a  matrix  name  must  be  alphabetic. 

MATR10  ILLEGAL  CARD  ENCOUNTERED.  FOLLOWING  CARDS  IGNORED  UNTIL 
ANOTHER  -  $  -  CONTROL  CARD  IS  FOUND. 

A  card  has  been  encountered  in  the  matrix  card  input  data 
which  has  an  illegal  character  punched  in  ckrd  column  1.  The 
only  valid  characters  which  may  appear  in  card  column  1  are  '!H", 
"E",  and  blank. 

MATR11  CARD  FOLLOWING  E  CARD  IS  NOT  A  $  CONTROL  CARD  -  WARMING 
ONLY. 

In  a  valid  FORMAT  II  deck  setup  the  only  cards  which  may 
follow  the  "E"  card  which  is  the  last  card  in  the  matrix  card 
input  data,  are  the  •^SPECIAL'*  card  and  the  M$ENDM  card. 

MRESC1  FIRST  CARD  IS  NOT  A  -  $  -  CONTROL  CARD 

The  first  card  of  all  FORMAT  II  Jobs  must  be  a  ’^MAGIC” 
or  a  '^FORMAT"  card. 

MRES02  FIRST  -  $  -  CONTROL  CARD  IS  NOT  A  $MAGIC  CARD.  ALLOCATION 
SUPPRESSED 

The  first  card  of  all  FORMAT  II  Jobs  must  be  a  "$MAGIC" 
or  a  '^FORMAT'*  card. 


MRES03  UNRECOGNIZABLE  OPTION  ON  -  $MAGIC  CARD  STANDARD 
OPTION  ASSUMED 

An  option  other  than  "NEW",  "STANDARD"  (or  blank)  or 
"CHANGE"  has  been  specified  on  the  "$MAGIC"  card  or  a  valid 
option  starts  before  column  16  on  the  "$MAGIC"  card. 

MRES04  TLLEGAL  CARD  FOR  -  CHANGE  -  OPTION  -  ALLOCATION 
SUPPRESSED 

The  "DELETE"  card  and  the  "UPDATE"  card  are  the  only 
valid  machine  resources  data  cards  which  are  valid  when  the 
"CHANGE"  option  has  been  specified  on  the  "$ FORMAT "  card.  The 
"SETUP"  card  is  the  only  valid  machine  resources  data  card 
which  is  valid  when  the  "NEW"  option  has  been  specified  on 
the  "$FORMAT "  card. 

MRES05  THE  SYSTEM  INPUT  DATA  SET  OR  OUTPUT  DATA  SET  HAS  BEEN 
SPECIFIED  AS  A  FORMAT  II  SYSTEM  FUNCTION 

Two  Fortran  logical  data  sets  which  must  not  be  specified 
on  "UPDATE",  "DELETE",  or  "SETUP"  cards  are  the  system  input: 
data  set  and  the  system  output  data  set. 

MRES06  DUPLICATE  DATA  SETS  SPECIFIED  -  ALLOCATION  SUPPRESSED 

A  Fortran  logical  data  set  has  been  specified  more  than 
once  on  "SETUP"  or  "UPDATE"  cards. 

MRES07  INVALID  «***  VALUE  DETECTED  ALLOCATION  SUPPRESSED 

An  invalid  field  has  been  specified  on  an  "UPDATE"  or 
"SETUP"  card.  The  valid  fields  are  as  follows.  The  first 
field  must  contain  the  logical  data  set  number  (an  integer). 

The  second  field  a  valid  FORMAT  II  system  function  (e.g., 
"MASTRI" ,  "MASTRO",  or  "IOUTIL").  The  third  field  must 
contain  the  physical  device  containing  the  data  set.  The 
valid  specifications  in  the  field  are  "TAPE",  "DISK",  "DRUM", 
or  "CELL".  The  fourth  field  must  contain  the  logical  channel 
designation.  This  consists  of  a  letter  A  to  H.  The  fifth 
field  must  contain  the  capacity  of  the  data  set  in  basic 
machine  units  (e.g.,  bytes,  etc.).  This  field  must  be  an 
integer  number.  The  error  message  indicates  which  of  the  five 
fields  is  in  error. 

MRES08  INCORRECT  SETUP  OR  UPDATE  CARD  ALLOCATION  SUPPRESSED 

A  missing  field  has  been  detected  on  a  "SETUP"  or  "UPDATE" 

card. 


MRES09  INSUFFICIENT  I/O  UTILITY  DATA  SETS  -  ALLOCATION 
SUPPRESSED 

A  minimum  number  of  Fortran  logical  data  sets  available 
to  FORMAT  II  must  have  the  FORMAT  II  system  function  of  "IOUTIL". 
The  FORMAT  II  preprocessor  selects  several  of  the  data  sets  with 
this  function  for  scratch  data  sets  during  preprocessing.  This 
condition  can  be  remedied  by  specifying  additional  data  sets  on 
"SETUP"  or  "UPDATE"  cards  with  the  FORMAT  II  system  function 
"IOUTIL". 


MRES10  ILLEGAL  DEVICE  SPECIFIED  FOR  MASTER  INPUT  DATA  SET 

The  only  valid  device  types  which  may  be  specified  for  a 
FORMAT  II  data  set  whose  system  function  is  "MASTRI"  are 
"TAPE"  and  "DISK".  A  "SETUP"  or  "UPDATE"  card  is  the  source 
of  the  error. 


MRES11  ILLEGAL  DEVICE  SPECIFIED  FOR  MASTER  OUTPUT  DATA  SET 

The  only  valid  device  types  which  may  be  specified  for  a 
FORMAT  II  data  set  whose  system  function  is  "MASTRO"  are 
"TAPE"  and  "DISK".  A  "SETUP"  or  "UPDATE"  card  is  the  source 
of  the  error. 


PREP01  INVALID  CONTROL  CARD  OR  INCORRECT  DECK  SETUP 

The  FORMAT  II  preprocessor  has  encountered  a  control  card 
which  is  unrecognizable  or  which  is  valid  but  does  not  occur 
in  Its  proper  place.  Recommended  corrective  action  is  to  check 
the  spelling  of  all  control  cards  and  check  the  deck  set  up. 

PREP02  NOT  A  -  $  -  CONTROL  CARD.  CARD  IGNORED 

When  an  invalid  control  card  is  encountered  or  incorrect 
deck  setup  is  recognized,  the  preprocessor  searches  for  the 
next  control  card. 

PREP03  PREPROCESSING  TERMINATED  EXECUTION  HALTED 

Whenever  a  serious  error  occurs  the  preprocessing  is 
terminated  and  a  "NOGO"  condition  is  established. 

PROBOl  UNRECOGNIZABLE  OPTION  ON  -  $RUN  -  CARD.  STANDARD 
OPTION  USED. 

An  option  other  than  "GO",  "NOGO",  "LOGIC"  or  "NOLOGIC" 
has  been  specified  on  the  "$RUN"  card  or  a  valid  option  starts 
before  column  16  in  the  "$RUN"  card. 
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PROB02  CONTRADICTORY  EXECUTION  OPTIONS  -  ALLOCATION  SUPPRESSED 

The  options  "GO"  and  "NOGO"  have  been  specified  on  the 
"$RUN"  card. 

PROB03  CONTRADICTORY  LGOIC  OPTIONS  -  ALLOCATION  SUPPRESSED 

The  options  "LOGIC"  and  "NOLOGIC"  have  been  specified  on 
the  "$RUN"  card. 

PR0B04  MISSING  LEFT  PARENTHESIS  -  ALLOCATION  SUPPRESSED 

A  problem  specification  data  card  has  a  missing  left 
parenthesis . 

PR0305  UNRECOGNIZABLE  CARD 

A  problem  specification  data  card  is  unrecognizable.  The 
valid  oroblem  specification  data  cards  are  the  "ANALYSIS"  card, 
the  "PROBLEM"  card,  the  "PAGE  SIZE"  card,  the  "INPUT  TAPE"  card, 
and  the  "OUTPUT  TAPE"  card. 

PROB06  MISSING  COMMA  ON  MASTER  I/O  TAPE  CARD  -  ALLOCATION 
SUPPRESSED 

There  is  a  missing  field  on  an  "INPUT  TAPE"  card  or  on 
an  "OUTPUT  TAPE"  card  in  the  problem  specification  data. 

PROB07  ILLEGAL  MASTER  I/O  DATA  SET  NAME  -  ALLOCATION  SUPPRESSED 

The  master  input  or  master  output  data  set  name  which  has 
been  specified  on  "INPUT  TAPE"  card  or  on  "OUTPUT  TAPE"  card 
in  the  problem  specification  data  is  invalid.  Master  Input/Output 
data  set  names  follow  the  same  rules  as  matrix  names.  In 
particular,  the  name  must  be  1-6  characters  long  and  the  first 
character  must  be  alphabetic. 

PROB08  ILLEGAL  INTEGER  ON  MASTER  I/O  TAPE  CARD 

The  second  field  of  an  "INPUT  TAPE"  or  "OUTPUT  TAPE"  card 
in  the  problem  specification  data  is  not  an  integer  number. 

PROB09  ILLEGAL  PAGE  SIZE  -  ALLOCATION  SUPPRESSED 

An  invalid  page  size  has  been  specified  on  the  "PAGE  SIZE" 
card  in  the  problem  specification  data.  The  valid  page  sizes 
are  :,11  *  8",  "8  *  11"  and  "1U  *  11". 
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PROBIO  MASTER  INPUT  OR  OUTPUT  DATA  SET  USED  PREVIOUSLY 

All  master  Input  and  output  data  set  names  as  specified  on 
"INPUT  TAPE"  and  "OUTPUT  TAPE"  cards  in  the  problem  specification 
data  must  be  unique. 

PR0B11  INVALID  SIZE  SPECIFIED  ON  SIZE  CARD 

An  integer  number  must  be  specified  in  the  only  field  of 
the  "SIZE"  card. 


SECTION  2. 


MISCELLANEOUS  ARITHMETIC  MODULE  ERROR  MESSAGE 


ASSEM 


ASSEMC 


ASSEMS 


COLREP 


DEJNC 


DEJNR 


DEJOIN 


The  order  Of  the  assembled  -  unreduced  system, 

NSYS  *  ******  the  maximum  size  system  can 
only  *  *****  D.O.F. 

The  variable  KONST  in  subroutine  MRES  must  be 
updated  to  allow  the  user  to  assemble  a  system 
with  NSYS  degrees  of  freedom. 

Element  number  ******  generated  a  LISTEL  value 
of  ******  while  NSYS  =  »****. 

If  this  error  occurs  see  the  MAGIC  system  analyst. 

Must  update  the  dimension  of  the  list  and  format 
arrays  to  allow  for  *****  degrees  of  freedom. 

The  dimension  of  two  arrays  in  subroutine  ASSEMS 
must  be  updated  to  assemble  more  degrees  of  freedom 
than  allowed.  If  this  error  occurs  see  the 
MAGIC  system  analyst. 

Input  matrix  ******  exceeds  allowable  size 
IMAX  =  «»»**. 


The  number  of  rows  of  the  input  matrix  exceeds 
the  value  of  KONST.  IMAX  is  the  number  of  rows 
in  the  input  matrix. 

The  partition  number  *  **•**,  is  greater  than 
or  equal  to  the  column  dimension  *  *****  of  the 
input  matrix. 

An  invalid  column  partition  number  has  been 
specified  in  the  DEJOIN  instruction  1  £  JPART  <  ICOL. 

The  partition  number  *  ******  is  greater  than  or 
equal  to  the  row  dimension  «  *****  of  the  input 
matrix. 

An  invalid  row  partition  number  has  been  specified 
in  the  DEJOIN  instruction  1  £  JPART  <  IROW. 

Invalid  partition  number  ■  ***** 

The  matrix  partition  number  must  be  greater 
than  one. 


89 


EPRINT 


EPRINT 


EPRINT 


EPRINT 


F0RCE1 


FORCE2 


FREEUP  - 


QPRNT1 


Unable  to  execute  the  EPRINT  module.  The  work 
array  is  not  long  enough  for  execution. 

The  variable  NWORK  in  subroutine  MRES  must  be 
updated  for  more  work  storage. 

The  element  information  is  for  element  number 
****  -  go  to  next  element. 

Unable  to  print  out  stresses  or  forces  for  this 
element,  continue  execution.  If  this  error 
occurs  contact  the  MAGIC  system  analyst 

The  number  of  elements  in  the  input  matrices 
are  not  the  same. 

If  this  error  occurs  contact  the  MAGIC  system 
analyst . 

Printing  for  element  type  ****#,  are  not  available, 
proceeding  to  next  element. 

The  EPRINT  module  has  not  been  updated  to  handle 
this  element  type.  Contact  the  MAGIC  system 
analyst . 

Unable  to  execute  the  force  module.  The  work 
array  contains  ********  words,  and  ******** 
words  are  needed  to  process  the  maximum  element. 

There  is  not  enough  work  storage  to  calculate 
the  forces  for  all  elements.  The  variable 
NWORK  must  be  updated  in  subroutine  MRES. 

Forces  for  element  type  *****,  are  not  available, 
proceeding  to  next  element. 

The  FORCE  module  has  not  been  updated  to  handle 
this  element  type.  The  MAGIC  system  analyst  should 
be  contacted  if  this  error  occurs. 

The  number  of  matrices  .to  be  kept  was  input  as 
MATOUT  *  ******,  the  number  of  non-zero  elements 
of  MAT  »  »*»«. 

If  this  error  should  occur  contact  the  MAGIC 
system  analyst. 

The  row  dimension  of  TR( transformation  matrix 
for  application  of  boundary  conditions)  =  ******. 
The  number  of  columns  of  TR  *  *******  This 
should  equal  row  dimension. 

An  Incorrect  matrix  was  input  in  the  .GPRINT. 
instruction. 
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GPRNT1 


GPRNT1 


GPRNT1  - 


GPRNT1 


3TRES1 


STRES2 


i TT??5JJ??fft3£7S^73^S5^5^S*?3?5esi5*ET|K 3^7^i3FV3?7^^SX^^?*' v' ^ ,  — 


The  analyst  has  asked  for  *****  eigenvalues  to 
be  printed.  Subroutine  GPRINT  allows  a  maximum 
of  *****  values  to  be  printed  -  see  a  program 
analyst  to  correct  this  error. 

Subroutine  GPRINT  must  be  updated  to  allow 
more  eigenvalues  to  be  printed. 

Error  while  processing  matrix  ******* 

An  error  has  occurred  in  the  GPRINT  instruction 
while  processing  matrix  named. 

The  matrix  to  be  printed  has  ******  rows  while 
TR  indicates  that  it  should  have  ******  rows. 

The  input  matrix  to  be  printed  is  incorrect  or  the 
input  transformation  matrix  is  incorrect. 

Eigenvector  matrix  has  *****  eigenvectors, 
while  the  eigenvalue  matrix  has  *****  eigenvalues. 

The  eigenvector  and  eigenvalue  matrices  input 
into  the  GPRINT  instruction  are  not  compatabie. 

Unable  to  execute  the  STRESS  module.  The  work 
array  contains  ********  words,  and  ********  words 
are  needed  to  process  the  maximum  element. 

There  is  not  enough  work  storage  to  calculate 
the  stresses  for  all  elements.  The  variable 
NWORK  must  be  updated  in  subroutine  MRES . 

Stresses  for  element  type  *****,  are  not  available 
proceeding  to  next  element. 

The  STRESS  module  has  not  been  updated  to  handle 
this  element  type.  The  MAGIC  system  analyst  should 
be  contacted  if  this  error  message  occurs. 


SECTION  3. 


.USER04.  ERROR  MESSAGES 


CHEK 

CONTRL 

CONTRL 

CONTRL 

DEFLEX  - 

DEFLEX 

DEFLEX 


Input  section  ****  has  not  been  found.  This 
input  section  is  required  for  generation  of 
the  following  matrices. 

The  named  matrices  cannot  be  generated  due  to 
the  omission  of  the  specified  input  section. 

System  information  card  missing.  Cannot  allocate 
storage. 

All  input  data  decks  must  have  SYSTEM  section 
to  allocate  storage  for  processing  of  input. 

System  information  card  missing.  Cannot 
allocate  storage. 

The  SYSTEM  card  is  missing  from  the  report 
form  input  deck. 

$END  card  encountered  while  reading  .USER04. 
input,  indicating  absence  of  end  or  check  card. 
Check  card  will  be  inserted. 

END  or  CHECK  card  missing  from  report  form  input 
deck. 

.USER04.  Module  unable  to  locate  matrix  »»»***. 

The  system  is  unable  to  locate  a  matrix. 

Matrix  ******  does  not  qualify  as  an  input 
displacement  matrix  for  the  .USER04.  module. 
Dimensions  are  *****  by  *****  and  should  be 

•••»»  by  «««*». 

The  input  displacement  mat.,  ix  used  to  calculate 
increment als  is  of  the  wrong  order. 

Matrix  ***  does  not  qualify  as  an  input 
displacement  or  stress  matrix. 

The  input  matrix  used  to  calculate  incrementals 
is  of  the  wrong  order.  If  the  matrix  was  a 
stress  matrix  then  it  must  have  been  generated 
using  the  .STRESS,  abstraction  instruction. 
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ELEN 


ELEM 


ELEM 


EL PLUG 


ELEM 


ELEM 


Element  control  error  in  subroutine  ELEM. 
Element  number  *****  calls  plug  number  ***. 
Plug  number  should  be  greater  than  zero. 
Execution  terminated. 


All  element  type  code  numbers  are  greater  than 
zero.  Proper  element  type  cannot  be  selected. 

Element  control  error  in  subroutine  ELEM.  Element 
number  *****  has  material  number  ******.  Material 
identification  must  be  different  from  zero. 
Execution  terminated. 

Self-explanatory . 

Element  control  error  in  subroutine  ELEM.  Element 
number  *****  has  number  of  g^id  points  *  ***. 
Number  of  grid  points  must  be  greater  than  zero 
and  no  greatef  than  eight.  Execution  terminated. 

Self  explanatory. 


Element  input  error  No.  *.  Plug  No.  *.  Element 

No.  »»**. 


Error  number  1 
Error  number  2 
Error  number  3 
Error  number  4 


-  incorrect  plug  number 
(element  type  code) 

-  incorrect  number  of  element 
.defining  points 

-  incorrect  value  for  extra  element 
input  indicator 

-  incorrect  matrix  orders  for  element 
(number  of  degrees  of  freedom  per 
point  incorrect) 


Element  control  error  in  subroutine  ELEM.  Element 
number  *****  has  number  of  input  points  *  ** 

Number  of  input  points  must  be  position. 

Execution  terminated. 


Self-explanatory. 

Input  error  in  subroutine  ELEM.  Element  node 
point  is  negative  or  zero  in  element  number  ***** 

No  element  defining  point  number  may  be  negative 
and  only  mid-points  may  be  zero. 
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EL  EM 


ELEM 


ELEM 


ELEM 


ELEM 


ELEM 


Input  error  in  subroutine  ELEM,  after  inter¬ 
polation  value  of  Young's  Modulus  equals 
+,»*######  +  «*  in  material  number  *#«#*«, 

value  should  be 

greater  than  1.0.  Execution  terminated. 

Sel f-explanatory . 

Input  error  in  subroutine  ELEM,  after  inter¬ 
polation  Poisson  value  equals  +.####*#*#£ 

+  *#  in  material  number  *#*##*,  a########## ****** * *** * » » . 

Value  should  be  greater  than  -1.0  and  less  than 
1.. 0.  Execution  terminated. 

Sel'  f-explanatory . 

Input  error  in  subroutine  ELEM,  after  inter¬ 
polation  thermal  coefficient  values  equals 
+  .#*#*#*#*2  +.:*#  in  material  number  ######, 
*x*##*#**#***##**«»#*###.  vaiue  should  be 
greater  than  -1.0  and  less  than  1.0.  Execution 
terminated. 

Self-explanatory . 

Input  error  in  subroutine  ELEM,  after  inter¬ 
polation  rigidity  value  equals  + 

+  **  in  material  number  ###*#» /'#*»**##»*###**##*sx*#*»* . 

Value  should  be  greater  than  1.0.  Execution 
terminated. 

Self-explanatory . 

Input  error  in  subroutine  ELEM.  Mass  density 
value  equals  +  .  XXXXXXXXE  +  *#  in  material 
number  »**##*“  a#####**#######**###*### ,  Value 
should  be  greater  uhan  zero.  Execution  terminated. 

Self-explanatory . 

Input  error  in  subroutine  ELEM.  Value  of 
Xp  «  #»» ,  value  of  IPRE  «  ***  for  element  number 
one.  Request  to  repeat  data  from  element  previous 
to  first  element  is  illogical.  Execution 
terminated. 

IP  and  IPRE  cannot  be  negative  for  first  \ 

element.  1 


1 
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f^gfts-^nza 


ELEM 


Input  error  in  subroutine  ELEM.  Element  number 
******  is  defined  by  node  points  for  which  no 
coordinates  have  been  input.  Calculation  of 
material  temperature  impossible.  Execution 
terminated . 


1  l 
%  1 

l  I 


I 


I  ' 


V  » 


V 


i 


ELEM 


ELEM 


EL PLUG 


FMAT 


FMAT 


FMAT 


Self  explanatory. 

Cannot  locate  material  library. 

The  system  cannot  locate  the  material  library 
matrix . 

Material  error  in  subroutine  ELEM.  Material 
number  was  not  located  on  material 

tape.  Execution  terminated. 

The  specified  material  number  was  not  available 
in  the  material  library. 

Element  input  error  no.  ####,  Plug  Mo.  *##*, 
and  Element  Mo.  **##. 

An  error  has  occurred  in  generation  of  specified 
element . 

Error  No.  -  1  Plug  number  (element  type)  incorrect 

Error  Mo.  =  2  Number  of  nodes  incorrect 

Error  Mo.  =  3  Number  of  input  clement  cards  incorrect. 

Input  error  in  subroutine  FMAT.  Material 
number  »***#*,  a*#*###*####***##**#**##. 

Number  of  material  temperature  points  is  . 

Number  of  plastic  temperature  points  is  **. 

Number  of  temperature  points  in  either  case 
cannot  exceed  9-  Execution  terminated. 

Self  explanatory. 

Input  error  in  Subroutine  FMAT.  Mass  density 
value  equals  +**####*#  +  ##  in  material  number 
**** f  a****#**##**#*#####*#*##.  vaiUe  should 
be  non-negative.  Execution  terminated. 

Self-explanatory. 

Input  error  in  subroutine  FMAT.  Poisson  value 
equals  +  .#»#*###*  +  *#  in  material  number 
»****»,  a***#*#**#***##**#*##*#*#,  value  should 
be  greater  than  -1.0  and  less  than  1.0. 

Execution  terminated. 

Self-explanatory. 
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FMAT 


Input  error  in  subroutine  FMAT.  Rigidity  value 
equals  £  .  »*»**»**£  +  **  in  material  number 

******»*§*»**T»#»*»*##** 4  Value  should 
be  greater  than  1.0.  Execution  terminated. 

Self-explanatory . 

FMAT  *  Input  error  in  subroutine  FMAT.  Thermal 

coefficient  value  equals  +  .*»***»**e  +  &* 
in  material  number  *»»***,  ************************ 
Value  should  be  greater  than  -1.0  and  less  than 
1.0.  Execution  terminated. 

Self-explanatory . 

FMAT  -  Input  error  in  subroutine  FMAT.  Value  of 

Young's  modulus  equals  +  . ********E  4  ** 
in  material  number  ******,  *******#**4k#i *»»»«»»«»*» 
Value  should  be  greater  than  1.0. 

Self-explanatory . 

FMAT  -  Error  message  from  subroutine  FMAT.  Attempt 

to  delete  material  number  ******  using  lock 
code  **.  Incorrect  lock  codp,  request  ignored. 

Self-explanatory . 

FMAT  -  Error  message  from  subroutine  FMAT.  Attempt  to 

delete  material  tliat  was  not  on  material  tape. 
Material  number  ******.  Material  identification 

is  »**#»*»#**#########»»»## (  xnpUt  code  Is  ***. 
Request  ignored. 

*lelf-explanatory . 

FMAT  -  Error  .<r-essage  from  subroutine  FMAT.  Attempt  to 

revise  material  number  ******  using  lock  code  **. 
Input  lock  code  does  not  match  tape  lock  code 
for  this  material.  Revisions  or  deletions  not 
allowed  without  proper  lock  code.  Execution 
terminated. 

Self-explanatory . 

FMAT  -  Error  message  from  subroutine  FMAT.  Additions 

requested  exceed  capacity  of  material  tape. 

Maximum  number  of  materials  cannot  exceed  **•*. 

Self-explanatory. 
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FMAT 


FMAT 


FMAT 


FMAT 


FMAT 


FORMIN 


FORMIN  - 


Error  message  from  subroutine  FMAT.  Request 
for  print  of  material  that  was  not  on  tape. 

Material  number  **»*#*.  Material  identification 

is  #»»*#*#»#»# *«** * «**«»*«* ,  Input  code  is 
##*.  Request  ignored. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Unrecognizable 
data  input  code.  Legal  codes  are  PI,  PO,  I. 

0,  P,  OUT,  ALL,  SEE,  SUM.  Material  number 
•»#*##.  Material  identification  is 
•««»***»K****»*****tt»»»ft .  input  code  is  ***. 
Execution  terminated. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Number 
of  requests  received  is  zero. 

Number  of  requests  must  not  be  zero.  Value  of 
zero  indicates  improper  operation  of  program. 

Error  message  from  subroutine  FMAT.  Attempt  tc 
input  plastic  data  only  for  material  which  was 
not  on  tape.  Material  number  ###*##.  Material 
identification  is  a*###*##**##***#####*##*. 

Input  code  is  ***.  Request  ignored. 

Usage  of  dn  input  code  of  "P"  requires  that  the 
material  to  be  revised  already  exists  in  the 
material  library. 

New  material  tape  not  generated.  All  revisions 
and/or  deletions  requested  by  this  case  have 
been  Ignored. 

Due  to  a  previous  error,  generation  of  a  new 
material  library  has  been  abandoned.  Execution 
will  be  terminated. 

Unexpected  label  card  read  -  point  *#**#. 

Input  section  label  card  encountered  while 
reading  table  form  input.  Point  reflects  entry 
now  being  processed. 

Repeat  for  first  psint  ignored. 

Repeat  option  on  table  forms  of  report  form 
input  cannot  be  used  for  first  value  entered. 


FRED 


F6211 


INDECK 


INDECK 


INPUT 


INPUT 


INPUT 


LOGFLO 


There  is  a  mistake  in  the  coordinates  for  this 
transformation,  we  will  calculate  the  remaining 
in  spite  of  this. 

An  error  has  occurred  in  generating  a  grid  point 
axes  transformation  matrix.  Execution  will 
continue. 

The  Integral  of  (LN(AJ*B*X)/'X)  DX  is  not  allowed 
for  A+B*X=0.  A  =  +,**«***£  +  **., 

B  ■  +  .**»****E  +  **,  X  =  +  . **«**«*e  +  *» 

Natural  log  of  zero  is  undefined. 

.USER04.  input  matrix  ******  is  not  a  valid 
deck  (word  count  error). 

The  specified  matrix  does  not  qualify  as  a 
valid  interpreted  input  deck. 

.USER04.  input  matrix  ******  is  not  a  valid  deck 
(compression  error). 

The  specified  matrix  does  nc\t  qualify  as  a  valid 
interpreted  input  deck. 

Input  error,  number  of  directions  of  grid  points 
not  equal  to  number  of  directions  of  transformation 
matrix.  Execution  terminated. 

Order  of  grid  point  axes  transformation  matrices 
must  be  equal  to  three. 

Input  error,  number  of  reference  points  input 
exceeds  *»**. 

Program  cannot  accommodate  more  than  the  given 
number  of  input  points. 

Label  card  error  ******* 

Input  card  read  should  have  been  label  card. 
Execution  will  be  terminated. 

Logical  input  error  -  matrix  ******  cannot  be 
generated  by  .USERQ4.  module  due  to  suppression 
of  fourth  input  matrix.  Execution  phase  suppressed. 
Input  processing  continuing. 

The  incremental  matrices  cannot  be  generated 
because  the  input  displacement  or  stress  matrix 
has  been  suppressed. 


PDISP 


PHASE1 


PHASE1 


PHASE1 


PHASE 1 


PHASE1 


PHASE1 


PHASE1 


Input  section  ******  matrix  not  generated  due 
to  prescribed  displacement  conditions  .  NE.  1 
and  .LT.  Load  conditions  input. 

The  Prescribed  Displacement  matrix  has  not  been 
generated  because  of  an  illegal  combination  of 
external  load  conditions  ana  prescribed  displace¬ 
ment  conditions. 

Unexpected  blank  label  card  encountered. 

Card  read  should  have  contained  an  input  section 
label.  Input  processor  will  attempt  to  continue. 

No  option  has  been  selected  for  request  number 
**#  of  material  library. 

Self-explanatory . 

More  than  one  option  has  been  selected  for 
request  number  of  material  library.  Only 
the  first  selection  will  be  retained. 

Self-explanatory . 

Maximum  number  of  load  conditions  allowed  is 
100.  This  problem  contains  **#». 

Self-explanatory . 

Load  condition  *#*  sub-label  is  incorrect. 

Program  cannot  distinguish  between  load  conditions. 

Load  condition  sub-label  In  report  form  input 
is  in  error. 

Illegal  MODAL  card  encountered.  Card  will  be 
Ignored. 

A  MODAL  card  has  been  four,  i  while  reading  an 
input  section  for  which  no  MODAL  card  has  been 
defined. 

Due  to  previously  encountered  error  condition 
this  section  is  being  skipped.  Program  will 
flush  data  deck  until  next  recognizable  input 
section  Is  encountered. 
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PHASE1 


PHASE1 


PKASE2 


PHASE 2 


PHASE2 


PHASE 2 


PHASE2 


PHASE2 


Unrecognizable  input  section. 

Input  section  label  has  been  read  which  is 
undefined  in  input  processor. 

Due  to  above  error  message  this  section  will 
be  omitted  and  check  card  inserted.. 

Self-explanatory . 

Number  of  entries  read  for  this  section,  *****, 
does  not  agree  with  number  that  was  to  be  read, 
******  Actual  number  read  will  be  used. 

Self-explanatory . 

This  section  has  either  been  omitted  or  flushed 
by  phase  one  error.  In  either  case  this  section 
is  considered  'critical  and  execution  will  not 
be  allowed. 

Self-explanatory . 

Due  to  the  omission  of  this  section  the  following 
sections  may  be  ignored  -  ******  ******  ******  ... 

The  final  processing  of  certain  sections  requires 
data  from  other  sections  which  by  omission  or 
other  input  error,  are  not  present. 

This  section  is  to  be  merged  with  ******  and 
******  for  which  values  have  been  assigned  by 
both  for  point  number  *****.  Two  values  cannot 
be  assigned  to  the  same  point.  Neither  value 
will  be  used. 

Self-explanatory. 

This  section  is  to  be  merged  with  ******  and 
******  for  which  modal  cards  have  been  encountered 
for  both.  Two  values  cannot  be  assigned  to  the 
same  point.  Both  modal'  cards  will  be  ignored. 

Self-explanatory . 

Number  of  elements  read  *****  is  greater  than 
9999.  Number  of  elements  will  be  set  at  9999 • 

Self  explanatory,  execution  will  be  suppressed. 
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PHASE2 


PHASE2 


PHASE2 


PLUG1 


PLUG  5 


PLUG5 


PRINTS 


P7PRT 


No  end  or  check  card  has  been  x'ound.  Check 
card  will  be  inserted,  suppressing  execution. 

Self-explanatory . 

Due  to  above  error  condition  check  card  will 
be  inserted.  Execution  will  be  suppressed. 

Self-explanatory . 

Internal  tape  error  has  occurred.  Processing 
abandoned. 

Report  form  input  preprocessor  cannot  retrieve 
information  stored  on  a  scratch  data  set. 

Value  of  sin  (alpha)  is  zero  -  run  terminated. 

Element  defining  points  are  in  error  for 
Quadrilateral  Thin  Shell  Element. 

For  I  =  XX  and  N  *  XX  integral  does  not  converge. 

No  convergence  has  been  obtained  for  the  given 
integral  calculated  by  the  Romberg  technique 
in  the  Toroidal  Ring  Element. 

Maximum  number  of  iterations  reached  in  Romberg 
integration  routine. 

Convergence  was  rot  obtained  in  15  iterations 
for  an  integral  in  the  toroidal  thin  shell  element. 
Processing  will  continue,  using  15  iteration 
result. 

Toroidal  ring  element  with  coordinates 

Zl  .  +  .***###&#£  +""*#,  Z2  »  +—.»»#»####  +  ¥#  * 

is  not  diagonally  dominant  and  should  be  subdivided. 

Element  stiffness  matrices  must  be  diagonally 
dominant . 

PLUG7  error  -  third  point  to  define  plane  was 
not  given  -  input  error. 

Three  element  defining  points  are  required  for 
the  frame  element,  the  third  supplying  definition 
of  the  plane. 


TRAIC 


US04A 


US04A 


US04A 


US04A 


US04A 


US04A 


Subroutine  MINV  has  determined  array  GAMABQ 
to  be  singular,  execution  terminated  by 
subroutine  TRAIC. 

Transformation  matrix  to  system  coordinates  in 
triangular  cross-section  ring  element  cannot  be 
inverted,  usually  because  three  element  defining 
points  do  not  define  a  triangle. 

Available  scratch  data  sets  ****  is  less  than 
the  required  4. 

The  .USER04.  module  requires  at  least  four 
scratch  data  sets.  The  addition  of  more  data 
sets  is  required  by  the  program*. 

Input  routine,  core  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
processing  input. 

Report  routine  core  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
processing  report  form  input  data. 

Grid  point  loads  matrix  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
generation  of  grid  point  loads  matrix. 

Reduction  of  transformation  matrixes  storage 
******  exceeds  that  available  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
generation  of  reduction  transformation  matrix. 

Element  generation  core  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
generation  of  element  matrices. 
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US04A 


USO^A 


US04A 


USO^IA 


USO^A 


USOUA 


USO'JA 


US04B 


Assembly  Vransi'ormation  matrix  size  ****** 
exceeds  limit  ******  of  MAGIC  system. 

Self-explanatory . 

Grid  point  load  matrix  size  ******  exceeds 
limit  ******  of  MAGIC  system. 

Self-explanatory . 

Reduction  transformation  matrix  size  ****** 
exceeds  limit  ******  of  MAGIC  system. 

Self-explanatory . 

Stiffness  matrix  size  ******  exceeds  limit  of 
MAGIC  system. 

Self-explanatory . 

Stress  matrix  size  ******  exceeds  limit  ****** 
of  MAGIC  system. 

Self-explanatory . 

Number  elements  size  ******  exceeds  limit  ****** 
of  MAGIC  system. 

Self-explanatory . 

Output  matrix  ******  will  be  a  duplicate  of 
input  matrix  ******. 

The  user  is  saving  the  interpreted  input  deck 
when  he  already  has  an  interpreted  input  matrix. 

Element  sort  routine  core  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
output  of  generated  matrices. 
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APPENDIX  VII 


EXAMPLE  STATIC  AND  STABILITY  INSTRUCTION  SEQUENCES 

A.  STATICS  ANALYSIS  INSTRUCTION  SEQUENCE 

1  7  Columns 

GENERATE  ELEMENT  MATRICES 

, MAT , , XLD ,TR, , KEL ,FTEL , SEL , STEL , , , SC , EM , = , , , . USER04 . 

ASSEMBLE  ELEMENT  STIFFNESS  MATRICES 

KELA  =  EM. ASSEM. SC , ( 1) 

ASSEMBLE  ELEMENT  APPLIED  LOAD  MATRICES 

FTELA  =  EM.ASSEM.SC,  ( I* ) 

REDUCE  ASSEMBLED  STIFFNESS  MATRIX 

KO,  KNO  =  KELA  .DEJOIN.  (SC(5,1),1) 

KCO ,  STIFF  =  KNO  .DEJOIN.  (SC(5,1),Q) 
PRINT(FORCE,DISP , , )  STIFF 

EXTRACT  LOAD  SCALAR  AND  APPLY  TO  ELEMENT  LOADS 

LSCALE, LOADS  =  XLD  .DEJOIN  .  (1,1) 

FTELS  =  FTELA  .MULT.  LSCALE 

TRANSFORM  EXTERNAL  LOADS  TO  0-1-2  ASSEMBLED 
SYSTEM  AND  FORM  TOTAL  LOAD  COLUMNS 

LOADO  =  TR  .MULT.  LOADS 
TLOAD  =  LOADO  .ADD.  FTELS 
TL,TLOADR  =  TLOAD  .  DEJOIN.  (SC (5,1), I 

SOLVE  FOR  DISPLACEMENTS 
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XX  »  STIFF. SEQEL.TLOADR 
TR0,TR12  =  TR. DEJOIN. (SC(5,i),l) 

X  =  TR12.TMULT.XX 
XO  =  TR.MULT.X 

SOLVE  AND  PRINT  ELEMENT  STRESSES  AND  FORCES 

STRESP  =  EM,  XO,.  STRESS.  ( 1* , ) 

FORCEP  =  EM,  XO,.  FORCE.  ( 1» ,  ) 

SOLVE  FOR  SYSTEM  REACTIONS 

REACTS  =  KELA . MULT . XO 
REACTP  =  REACTS. SUBT.TLOAD 

PRINT  ELEMENT  APPLIED  LOADS,  EXTERNAL  LOADS, 
DISPLACEMENTS  AND  REACTIONS  IN  ENGINEERING  FORMAT 

GPRINT ( H , , , FX . FY . FZ . MX . MY . MZ , SC , TR )  FTELA 
GPRINT( 4 , , ,FX.FY .FZ .MX .MY .MZ ,SC , )  LOADS 
GPRINT(2,, , U.V.W.THETAX. THETA Y.THETAZ, SC,)  X 
GPRINT ( 1 , , , FX . FY . FZ . MX . MY . MZ , SC ,TR )  REACTP 


STABILITY  ANALYSIS  INSTRUCTION  SEQUENCE 


GENERATE  ELEMENT  MATRICES 

,MAT,INTP,LXD,TR,  ,KEL,FTEL,SEL,STEL, ,  ,SC,EM,  =  , , ,  .USERO^J . 

ASSEMBLE  ELEMENT  STIFFNESS  AND  ELEMENT  LOAD  MATRICES 

KELA  =  EM.ASSEM.SC. (1) 

FTELA  =  EM.ASSEM.SC,  (if) 

REDUCE  ASSEMBLED  STIFFNESS  MATRIX 

KO , KNO  =  KELA. DEJOIN. (SC( 5,1) ,1) 

KCO, STIFF  =  KNO. DEJOIN.  (SC(5,1),0) 

PRINT(FORCE,DISP . , . ) STIFF 

EXTRACT  LOAD  SCALARS  AND  APPLY  TO  ELEMENT  LOADS 

LSCALE, LOADS  =  XLD . DEJOIN .( 1 , 1 ) 

FTELS  =  FTELA. MULT. LSCALE 
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c 

C  -  SOLVE  FOR  TOTAL  LOADS 

LOADO  =  TR. MULT. LOADS 
TLOAD  =  LOADO. ADD. FTELS 
TL , TLOADR  =  TLOAD . DEJOIN .  ( SC  ( 5 , 1 ) ,  1 ) 

CREATE  FLEXIBILITY  MATRIX 

FLEX  =  STIFF. INVERS. 

PRINT(DISP, FORCE, , )FLEX 

SOLVE  FOR  DISPLACEMENTS 
XR  =  FLEX. MULT. TLOADR 
TRO ,TR12  =  TR. DEJOIN. (SC(5,1)»1) 

X  =  TR12.TMULT.XR 
XO  =  TR.MULT.X 

SOLVE  FOR  ELEMENT  STRESSES 

STRESS  =  EM, XO. STRESS.  (4,) 

GENERATE  ELEMENT  INCREMENTAL  STIFFNESS  MATRIX 

,,,,,,,,,, NEL , , , EL ,  =  ,INTP, , STRESS. USER0^.‘ 

ASSEMBLE  AND  REDUCE  INCREMENTAL  MATRICES 

INCRA  =  EL.ASSEM.SC, (3) 

10 , INO  =  INCRA. DEJOIN. (SC(5,1) ,1) 

ICO , INCR  =  INO. DEJOIN. (SC(5,1),0) 

PRINT (,,,)INCR 

CREATE  EIGEN  MATRIX 

EIG  =  FLEX. MULT. INCR 
PRINT (,, ,)EIG 

CALCULATE  AND  PRINT  E-VALUES  AND  E-VECTORS 

EVALUE , EVECTR , ,  =  EIG, . EIGEN1 . ( 5 , , , ) 

GPRINT (3,,,,SC,TR12) EVECTR , EVALUE 

PRINT  ELEMENT  APPLIED  LOADS,  EXTERNAL  LOADS,  AND 
DISPLACEMENTS  IN  ENGINEERING  FORM 

GPRINT ( 4 , , , FX . F Y . FZ . MX . MY . MZ , SC , TR )  FTELA 
GPRINT( 4,,, FX.FY.FZ.MX.MY.MZ.SC,)  LOADS 
GPRINT (2 , , ,U.V. W.THETAX. THETA Y.THETAZ ,SC, )  X 
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APPENDIX  VIII 
SUBROUTINE  DOCUMENTATION 


Subroutine 


Page  No. 


AGENDM 

AI 

AJ 

AK 

AM 

APRT 

ASSEM 

ASSEMC 

A3SEMS 

ASSY2 

AXTRA1 

AXTRA2 

AXTRA3 

BCB 

BCB12 

BINT 

BMATRX 

BOUND 

CCB 

CC1 

CC2 

CC21 

CDELPQ 

CDF 

CDFX 

CDFY 

CDM 

CECC 

CFFTS 

CFFV 

CFMASS 

CFMTS 

CFMV 

CFP 

CFPB 

CHDEL1 

CKEK 

CK11 

CK22 

CMMASS 

COEF 


113 

319 

^28 

322 

323 

355 

140 

142 

143 
337 
460 
250 
462 
254 
444 
321 
413 
193 
360 
280 

297 
264 

269 
302 

303 

304 

284 
316 

305 

307 

308 

285 
287 

298 
299 

270 
227 
273 
289 
281 
329 


10? 


Subroutine 


Page  No 


COLMRD .  164 

COLREP  .  .....  134 

CONTRL .  185 

COPYDK .  186 

CSTF  . 300 

CSTM  .  282 

CTCQ  .  315 

CTGB  .  292 

CTGRB .  296 

CTGRM .  279 

CTOGB .  295 

CTOGM .  278 

CTS  .  314 

CT11  . 276 

DCD  .  338 

DECODE .  168 

DEFLEX .  237 

DEJNC . .  ....  139 

DEJNR .  138 

DEJOIN .  136 

DIRCOS .  441 

DISPL1 .  173 

DISPPR .  170 

DMATRX .  414 

DPQINT .  347 

DTAPR .  340 

EIG  .  132 

EIGB  .  131 

E1GPPR .  171 

EIG2  .  127 

ELEM  .  195 

EI.M  AT .  473 

EL  PLUG .  243 

ELFRT .  464 

ELREAD .  160 

ELTEST .  259 

E  PR  I  NT .  157 

EPRT  .  370 

ERIC  . 436 

EXPCOL .  377 

EXPSIX .  378 

FBMP18 . 455 

FCURL . 416 

FELEM .  239 

FF3  00  331 

FGRLDS .  202 

FINP22  .  458 
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Subroutine 


Page  No. 


FJAB 
FLOADS  . 
FKAT 
FORCE  . 
FORCE!  . 
FORCE2  . 
FORMIN  . 
FRED 
FFEEUP  . 
FTELQ  . 
FTR 
F" 

F5 
F  o 

F6211  . 

F6219  . 

F89 

GAMMAT  . 
G PRINT  . 
GPRNT1  . 
IDNTC  . 
IDNTR  . 
IFAC 
INCRE  . 
INDECK  . 
ININT  . 
INPUT  . 
INST 0 4  . 
INST05  . 
INST43  . 
INST60  . 
KMPY 
KOBLIQ  . 
LAG 

LATCH  . 
LOC 

LOGFLO  . 
MAB 
MABC 
MATB 
MATCH  . 
MATI60  . 
MATI70  . 
MAT PR  . 
MATPRT  . 
MATSUP  . 
MINV 
MPRD 


325 

230 

204 

151 

153 

155 

219 

191 


231 

408 

4C9 

410 

327 

326 

330 

415 

165 

166 
126 
125 
324 
311 
184 
235 
187 
114 
116 
118 
120 
435 
445 
201 
218 
258 
179 
252 
265 
256 
199 
277 
294 
341 
172 
122 
249 
317 
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Subroutine 


Page  No. 


MSB 

MSTR 

MULTP 

NEv/FT 

NEVJFT1 

NTF.8T 

MULL 

OPEN 

OUT TNT 

OUTMAT 

PDISP 

PFFTS 

PFFV1 

PFMASS 

PFMTS 

PPM  VI 

PFP 

PiiASEl 

PHA3E2 

PKF 

PKM 

PLAS2D 

PLMX 

PLUG1 

PLUGIN 

PLUG 17 

PLUG 18 

PLUG  2 

PLUG22 

PLUG  5 

PLUG6 

PLUG? 

PLUG  8 

PL6PRT 

PMMASS 

PNClIiE 

PMGl'iE 

POOF 

PR1HT5 

PRT1 

PSTF 


I  ii'u* 

PTMGS 
P1PRTA 
PI  J.?R7 
P171SM 
r  i  i*  li : 

P  6.M  ASS 
OUAD7 


253 

405 

423 
267 
343 
176 
135 
226 
228 
466 
224 
365 
36? 
336 
352 
354 

362 
213 
221 
358 
348 

371 
417 
260 
421 
437 
450 
332 
456 
401 
373 
309 
426 
400 
335 

368 

369 

424 
420 
288 

363 
350 

372 

345 
357 

346 
271 

425 
446 
312 
429 
411 
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Subroutine 


REACTP 

RECi 

REC3 

RECO 

REFORM 

REGE2 

ROMBER 

SCRLM 

SELQ 

SHIFT 

SOLVE 

SQUISH 

STRESS 

STRES1 

STRES2 

STRPRT 

SUB I NT 

SYMPRT 

TESTJ 

TFPPRT 

TFSPRT 

TFTPRT 

TIEPRT 

TIKPRT 

TIMPRT 

TISPRT 

TPRD 

TRAIC 

TRAIE 

TRAIFP 

TRAIFS 

TRAIFT 

TRAIK 

TRAIM 

THAIS 

THAI ST 

TRAITS 

TRCPRT 

TR18ST 

TSTPRT 

TSUM 

TSY  S 

TTSPRT 

US  00 

USOOA 

USO03 


Par-e  No. 

3  69 
177 
206 
207 
211 
129 
0  07 
03  6 
0  07 
230 
019 
201 
105 
107 
109 
159 
0  33 

2  57 
380 
387 

397 

389 
78  3 

5 

V-  .*)  L 

391 
318 

379 
6  2 

( 

396 

386 

380 

390 
390 

398 

392 
351 
0  5  0 

399 
120 

232 

393 
170 

3  81 

233 


Subroutine 


US461 .  **69 

US462  **71 

US463  **72 

ZMRD  .  **33 

ZTRD  .  **34 
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1.  Subroutine  Name:  AGENDM 

2.  Purpose:  To  locate  in  the  Agendum  library  the  abstraction 

instructions  specified  by  the  user  on  the  $1NSTRUCT10N  control 
card  in  MAGIC. 

3.  Equations  and  Procedures:  The  name  of  the  desired  Agendum 

on  the  $  INSTRUCTION  card  is  passed  to  AGENDM  by  INST.  The 
specified  name  is  compared  against  all  available  agendum 
names  in  the  TYPE  array.  If  the  specified  option  is  a  valid 
name  then  the  agendum  library  is  searched  until  the  correct 
abstraction  instruction  sequence  is  found,  if  it  is  not  found 
an  error  occurs.  If  it  is  found  then  NPIT  is  redefined  to  be 
NSETA  and  control  is  passed  to  INST. 

4.  Input  Arguments: 

OPTION  -  agendum  name  on  $ INSTRUCT ION  card 
LENOP  -  length  of  agendum  name  on  $INSTRUCTION  card 
NPIT  -  logical  unit  number  defining  system  card  reader 

NSETA  -  logical  unit  number  defining  data  set  of 

agendum  library 
WORK  -  work  storage 

5.  Output  Arguments:  None 

6.  Error  Returns: 

ERROR  -  TRUE,  if  the  option  specified  on  the  $INSTRUCTION 
card  is  unavailable  or  unrecognizable. 

7.  Calling  Sequence: 

AGENDM(OPTION, LENOP, NPIT, NSETA, WORK, ERROR) 

8.  Input  Tapes: 

NSETA  -  agendum  library 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  storage  required  is  4d4^  Bytes. 

12.  Subroutine  User:  INST 

13.  Subroutine  Required:  PUTL2 

14.  Remarks:  MAGIC 
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1. 


Subroutine  Name: 


I  NS?  0*1 


2. 


j. 


Purpose:  To  analyze  the  GPRINT  instruction  which  is  of 

the  form: 

GPRINT ( NPRT , EZERO , RCWL , C0L1 . COL2 . COL3 . COL12 , 

TSYS ,TR )XX1 jXX2 

Equations  and  Procedures:  This  subroutine  uses  the  same 

procedure  as  all  the  other  MAGIC  special  instruction  analyzers 
The  card  image  with  blanks  suppressed  and  starting  one  column 
to  the  right  of  the  first  (  is  broken  in  3  groups.  The  first 
group  is  checked  for  the  3  fields  defined  by  scalars. 

Field  Checked  For 

(  ,  Scalar 

,  ,  Scalar 

,  ,  Scalar 

Next  a  check  is  made  for  the  12  column  labels.  These  labels 
are  positional  and  may  be  suppressed.  After  the  labels  have 
been  determined,  the  third  group  is  checked  for  matrix  names. 
Two,  three,  or  four  matrices  may  be  specified  depending  on  use 


Field 


Checked  for 


end  of  labels 

y 

) 


) 

3 

A-blank 


Matrix  Name 
Matrix  Name 
Matrix  Name 
Matrix  Name 


Each  field  is  checked  in  turn  and  detection  of  an  error 
results  in  an  error  return.  If  uhe  card  image  for  the 
instruction  is  syntactically  correct,  information  required 
for  execution  is  written  on  tape.  Control  is  returned  to 
INST. 


*K  Input  Arguments: 


NPREP 
NO  PC 
I  ST  NO 


output  tape  number 
opcode  of  instruction  (0*1) 
statement  number  of  instruction 
card  image  (starting  in  column  to  right  of 
first  (,  blanks  suppressed ) 
number  of  non-blank  characters 
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.  *0 1  i  ciu  r. 


on  card 


5-  Output  Arguments; 

NUMIi'J  -  number  of  input  matrices 

ERROR  -  error  control 

6.  Error  Returns:  Logical  variable  ERROR  is  set  to  .TRUE. 

if  an  error  is  detected  and  control  returns  to  INST.  Additional 
diagnostics  are  printed  for  illegal  values  of  parameters, 
invalid  specification  of  matrices  and  illegal  specification 
of  column  headers. 

7.  Calling  Sequence: 

Cal 1  INST04 ( MPREP , NOPC , INSTNO , CARD , NONBLK , NUMIN , ERROR ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  NPREP 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

SYMBOL ( 1 ) 

TYM30L(4) 

d8S^£  bytes 

12.  Subroutine  User:  INST 

13-  Subroutine  Required:  IN3TFP,  PUTL3,  PUTL4 

1;‘.  Remarks:  This  is  a  special  instruction  analyzer. 
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1. 


Subroutine  Name: 


INST 05 


Purpose:  To  analyze  the  EPRINT  instruction  which  is  of 

the  form: 

EPRINT ( N , EZ  ERO , NAMIN 1 ) NAMIN2 

Equations  and  Procedures:  This  subroutine  uses  the  same 

procedure  as  all  the  other  MAGIC  instruction  analyzers.  The 
card  image  with  blanks  suppressed  and  starting  one  column 
to  the  right  of  the  first  (  is  broken  into  4  fields  as 
defined  within  successive  delimiters. 


Field  Defined 


Checked  For 


A~blank 


Integer  Scalar 
Real  Scalar 
Matrix  Name 
Matrix  Name 


Each  field  is  examined  and  checked  in  turn.  Detection  of 
an  error  results  in  an  error  return.  If  the  card  image  for 
the  instruction  is  syntactically  correct,  information  required 
for  execution  is  written  on  tape  and  control  is  returned 
to  INST. 

Input  Arguments: 


NPREP 
NO  PC 
IN ST NO 
CARD 

NONBLK 


output  tape  number 

opcode  of  instruction  (05) 

statement  number  of  instruction 

card  image  (starting  in  column  to  right  of 

first  (,  blanks  suppressed) 

number  of  non-blank  characters  or.  card. 


Output  Arguments: 


NUMIN 

ERROR 


number  of  input  matrices 
error  control 


Error  Returns:  The  logical  variable  ERROR  is  set  to  .TRUE, 

if  an  error  is  detected  and  control  returns  to  INST.  Additional 
diagnostics  and  warnings  are  printed  for  invalid  values  of 
parameters  and  illegal  suppression  of  parameters. 

Calling  Sequence: 

Call  INSTQ5 ( NPREP , NOPC , INSTNO , C ARD , NONBLK , NUMIN , ERROR ) 


Input  Tapes: 
Output  Tapes: 


None 


NPREP 
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10.  Scratch  Tapes:  None 

11.  Storage  Required: 

SYMBOL ( 4 ) 

Total  Storage  is  6D8^g  Bytes. 

12.  Subroutine  User:  INST 

13*  Subroutine  Required: 

INSTFP 

PUTL3 

PUTL4 

14.  Remarks*  This  is  a  special  instruction  analyzer 
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1.  Subroutine  Name:  INST43 

2.  Purpose:  To  analyze  the  .DEJOIN,  instruction. 

A1,A2  =  B.DEJOIN. (C(I,J) ,KODE) 

A1,A2  =  B.DEJOIN. (K,KODE) 

3-  Equations  and  Procedures:  This  subroutine  uses  the  same 

procedure  as  all  the  other  analyzers  in  MAGIC.  The  card 
image  with  blanks  suppressed  and  starting  in  column  7  is 
broken  into  6  fields  as  defined  within  successive  delimiters. 

Field  Defined  By  Checked  For 

Column  7  ,  Matrix  Name 

,  =  Matrix  Name 

=  .  Matrix  Name 

0  0  Not  Checked 

0  (  Not  Checked 

(  )  Checked  For  Matrix  Name 

and  3  Scalars  or  2  Scalars 

Each  field  is  examined  and  checked  in  turn.  Detection  of 
an  error  results  in  an  error  return.  If  the  card  image  for 
the  instruction  is  symtactically  correct,  information 
required  for  execution  of  the  instruction  is  written  on  tape 
and  control  Is  returned  to  INST. 

4.  Input  Arguments: 

NPREP  -  output  tape  number 

NO PC  -  opcode  of  instruction  ( 4 3 ) 

ISTNO  -  statement  number  of  instruction 

CARD  -  card  image  (starting  in  column  7,  blanks  suppressed) 

NOHBLK  -  number  of  non-blank  characters  in  card 

5-  Output  Arguments: 

NUMOT  -  number  of  output  matrices 

NUMIN  -  number  of  input  matrices 

NUMSC  -  number  of  scalars 

ERROR  -  error  control 

6.  Error  Returns:  Logical  variable  ERROR  it  set  to  .TRUE. 

if  an  error  is  detected  in  this  routine  and  a  return  is  made 
to  INST.  Additional  messages  are  printed  out  for  invalid 
matrix  names  and  invalid  indices. 

7-  Calling  Sequence: 

Call  INST 4 3 ( NPREP , NO PC , ISTNO  .CARD , MGNBLK , NUMOT , NUMIN , NUMSC , 

ERROR ) 


118 


8.  Input  Tapes:  None 

9.  Output  Tapes:  NPREP 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

MATRIX ( 7  j  *0 
SYMBOL ( 6) 

INDEX ( 3) 

Total  Storage  is  ^58^  Bytes. 

12.  Subroutine  Usf-r:  INST 

13.  Subroutine  Required:  PUTL3,  PUTL^ 

14.  Remarks:  This  is  an  arithmetic  type  instruction  analyzer. 
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1.  Subroutine  Name:  INST6Q 

2.  Purpose:  To  analyze  instructions  of  the  form 

(+)NAMOUT  =  +NAMIN1 ,  +NAMIN2 .OPCODE. (NPRT,EZERO) 

•FORCE,  and  .STRESS,  are  presently  of  this  form. 

3.  Equations  and  Procedures:  The  subroutine  uses  the  same 

procedure  as  all  other  analyzers  in  MAGIC.  The  card  image 
with  blanks  suppressed,  and  starting  at  column  7  is  broken 
into  7  fields  as  defined  inside  successive  delimiters. 

Field  Checked  For 

Matrix  Name 
Matrix  Name 
Matrix  Name 
Not  Checked 
Not  Checked 
Integer 
Real  Number 

Each  field  is  examined  and  checked  in  turn.  Detection  of 
an  error  results  in  an  error  return.  If  the  card  image  for 
the  instruction  is  syntactically  correct,  information  required 
for  execution  is  written  on  tape.  Control  is  returned  to 
INST. 

4.  Input  Arguments: 

NPREP  -  output  tape  number 

NOPC  -  opcode  of  instruction  (61  or  62) 

ISTNO  -  statement  number  on  instruction 

CARD  -  card  Image  (starcing  in  column  7,  blanks  suppressed) 

N0N3LK  -  number  of  non-blank  characters  in  card 

5.  Output  Arguments: 

NUMOT  -  number  of  output  matrices 

NUMIN  -  number  of  input  matrices 

NUMSC  -  number  of  scalars 

ERROR  -  error  control 

6.  Error  Returns:  Logical  variable  ERROR  is  set  to  .TRUE,  if 

an  error  is  detected  in  this  routine  and  control  returns  to 
INST.  Additional  messages  printed  out  for  illegal  values  of 
scalars  NPRT  and  EZERO. 


Column  l  - - -  58 
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7-  Calling  Sequence: 

Call  INST60 ( NPREP , NOPC , ISTNO  s CARD , NONBLK , NUMOT , NUMIN , NUMSC , 
ERROR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  NPREP 

10.  Scratch  Tapes:  None 

\ 

11.  Storage  Required: 

MATRIX (7, 3) 

SYMBOL (7 ) 

Total  Storage  is  7A4^g  Bytes. 

12.  Subroutine  User:  INST 

13.  Subroutine  Required: 

PUTL3 
PUTL4 
IN STEP 

14.  Remarks:  This  is  an  arithmetic  type  instruction  analyzer. 
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1.  Subroutine  Name:  MATSU P 

2.  Purpose:  Insert  suppressed  input  matrix  names  into  the 
Format  System 

3.  Equations  and  Procedures:  Scratch  unit  NPREP  is  backspaced 
to  the  beginning  of  the  instruction  section..  If  scratch 
unit  NDATA  already  contains  matrices  then  it  is  positioned 
at  the  data  set  trailer;  otherwise  it  is  rewound  and  a  data 
set  header  written  upon  it.  Each  instruction  record  is  then 
read  to  determine  if  the  op-code  is  capable  of  containing 
input  suppressed  matrices  as  indicated  in  the  array  LEGAL. 

If  the  operation  is  capable  of  containing  suppressed  input 
matrices  then  the  input  matrix  names  are  checked  to  see  if 
they  contain  a  slash  in  the  first  position.  If  this  is 

the  case  the  suppression  name  is  entered  as  a  null  matriv 
on  NDATA.  NDATA  is  then  returned  to  the  first  suppressed 
matrix  name  and  re-read  so  that  each  added  matrix  on  NDATA 
is  recorded  on  NPREP  after  the  instructions.  Control  is 
then  returned  to  the  calling  program. 

A.  Input  Arguments: 

NUMD  :  Number  of  matrices  or  NDATA 
NUMSUP  :  Number  of  suppressed  input  matrices  to  be 
added  to  NDATA 

NDATA  :  Logical  unit  containing  card  input  matrices 

NPREP  :  Logical  unit  containing  preprocessor  data 

NUMI  :  Number  of  instructions  on  NPREP 
IWORK  :  Work  storage  area 

5.  Output  Arguments:  None 

5.  Error  Returns:  None 

7.  Calling  Sequence: 

(NUMD,  NUMSUP,  NDATA,  NFREP,  NUMI,  IWORK) 

8.  Input  Tapes: 

NDATA  :  contains  card  input  matrices,  if  present 
NPREP  :  contains  input  abstraction  instructions  in 
coded  form 

9.  Output  Tapes: 

NDATA  :  will  contain  suppressed  input  matrices 
NPREP  :  will  contain  suppressed  input  matrix  names 
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10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  is  7  0  ^ 

12.  Subroutine  User:  PREP 

13.  Subroutines  Required:  None 
1*! .  Remarks:  None 
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1.  Subroutine  Name:  TSUM 

2.  Purpose:  To  generate  a  summary  of  the  matrices  on  a 

format  tape  if  EUTL3  cannot  find  a  matrix  on  the  specified 
tape . 

3.  Equations  and  Procedures:  The  data  set  header  and  modifier 

are  printed  out.  Then  each  matrix  header  is  printed  c.it 
giving  the  matrix  name,  the  sign  of  the  matrix  and  the  row 
and  column  dimension  of  the  matrix.  A  record  count  is  also 
provided  so  the  number  of  columns  in  a  matrix  can  be 
calculated. 

4.  Input  Arguments: 

N3ET  =  The  logical  unit  number  of  the  format  tape 
to  be  summarized 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  TSUM(NSET) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Requireo  Total  Storage  required  is  560l6  Bytes. 

12.  Subroutine  User:  EUTL3 

13.  Subroutine  Required:  None 

14.  Remarks:  None 


124 


1.  Subroutine  Name:  IDNTR 

2.  Purpose:  To  form  an  identity  matrix  of  the  same  order  as 

the  row  dimension  of  the  input  matrix. 

3.  Equations  and  Procedures:  The  input  matrix  is  located  by 

EUTL3  and  an  identity  matrix  is  formed.  The  order  of  the 
identity  matrix  is  the  same  as  the  row  dimension  of  the 
input  matrix. 

4.  Input  Arguments: 

NUMOT  -  the  number  of  output  m;-  rices 

OUTPUT  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

INPUT  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  array  containing  the  input  scalars 

IERROR  -  error  return  code  „ 

NWORKR  “  the  number  of  words  of  available  work  storage 

WORKR  -  working  storage  array 

5.  Output  Arguments:  None 

6.  Error  Returns:  IERROR  *  11 #  if  the  input  matrix  cannot 

be  found. 

•  1 

7.  Calling  Sequence: 

-  IDNTR ( NUMOT , OUTPUT , IOSPEC , NUMIN , INPUT , INSPEC , NUMSR , ISSPEC , 

NUMSC , SCALAR , IERROR , NWORKR , WORKR ) 


8. 

Input  Tapes: 

INSPEC 

9. 

Output  Tapes: 

IOSPEC 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required 

Total  Storage  required  is  Bytes 

12. 

Subroutine  User: 

EXEQ 

13. 

Subroutine  Required:  EUTL3,  EUTL5,  EUTL6 

14. 

Remarks :  A  » 

E.IDENTR. 
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IDNTC 


3 ub rcu tine  N ame : 


2,  Purpose:  To  form  an  identity  matrix  of  the  same  order 

as  the  column  dimension  of  the  input  matrix. 

3.  Equations  and  Procedures:  The  input  matrix  is  located 

by  EUTL3  and  an  identity  matrix  is  generated.  The  order 
of  the  identity  matrix  is  the  sane  as  the  column  dime:  cion 
of  the  input  matrix. 

.  Input  Arguments: 


I1UM0T 

OUTPUT 

I03PEC 

iiUMIII 

INPUT 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

I ERROR 

HWORKR 

V/ORKR 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  cf  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


5.  Output  Arguments:  None 

6.  Error  Return:  IERROR  =  11,  if  the  input  matrix  cannot  be 

found . 

7.  Calling  Sequence: 

IDNTC ( NUMOT , OUT PUT , IOSPEC , MUHIN , INPUT , INSPEC , NUMSR , ISSPEC , 
NUMSC  ,  SCALAR ,  IERROR ,  NWORKR ,  V/ORKR ) 

8.  Input  Tapes:  INSPEC 

9.  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  50E1g  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Suoroutine  Required:  EUTL3,  EUTLp,  EUTL6 

19-  Remarks:  A  =  3.IDENTC. 
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1.  Subroutine  Name:  EIG1 

2.  Purpose:  To  create  dynamic  storage  for  eigenvalue 

and  eigenvector  calculations  and  locate  input  matrix. 

3.  Equations  and  Procedures: 

1)  dynamic  storage  is  allocated. 

2)  RLGE2  is  called  to  transfer  matrix  to  scratch  tape. 

3)  EIGB  is  called  to  iteration  on  a  matrix. 

*0  Storage  required  is  5  vectors  of  equal  length 
(order  of  matrix). 

5)  If  the  NWORK  storage  is  too  small  for  this,  an 

error  message  is  printed  out. 

6)  If  the  eigenmatrix  cannot  be  located,  another  error 

message  is  written. 

*J.  Input  Arguments: 

NMOUT  -  the  number  of  output  matrices 

NAMOT  -  array  containing  the  names  of  the  output 

matrices 

IODS  -  array  containing  output  data  set  numbers 

NMIN  -  the  number  of  input  matrices 

INPT  -  array  containing  the  names  of  the  input 

matrices 

INSP  -  array  containing  input  data  set  numbers 

NSCR  -  the  number  of  scratch  data  sets 

ISSP  -  array  containing  scratch  data  set  numbers 

NMSCL  -  the  number  of  input  scalars 

NAMSC  -  array  containing  the  input  scalars 

ERR  -  -  error  return  code 

NWKR  -  the  number  of  words  of  available  work  storage 
WKR  -  working  storage  array 

5.  Output  Arguments:  ERR 

6.  Error  Returns: 

ERR  =  true  if  input  matrix  can't  be  found 

=  true  if  not  enough  storage  to  calculate  eigenvalue 
and  vector. 

7.  Calling  Sequence: 

Call  EIG1 (NMOUT, NAMOT, IODS, NMIN, INPT, INSP, NSCR, ISSP, 

NMSCL ,  NAMSC  ,  ERR ,  NWKR ,  WKR ) 

8.  Input  Tapes:  INSP 

9.  Output  Tapes:  IODS,  NPOT 
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10.  Scratch  Tapes:  ISS?  (4  scratch  tapes  needed) 

11.  Storage  Required: 

Total  Storage  Required  is  A3C^g  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutines  Required: 

REGE2 

EIGB 

EUTL3 

14.  Remarks: 
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1.  Subroutine  Name:  REGE2 


2.  Purpose:  This  routine  takes  compressed  (Pormat)  Eigen- 
matrix  and  transfers  it  (exponded)  to  a  scratch  data  set. 
Storage  on  the  scratdh  data  set  is  optimized  by  placing 
as  many  columns  into  a  record  (which  has  NLEFT  words 
max)  as  possible. 


3.  Equations  and  Procedures: 

1)  Compute  number  of  columns/NLEFT  record  ~  NCF. : 

maximum  NCOL  records. 

2)  Compute  number  of  columns  in  last  record  *  NRR 

3)  Compute  total  number  of  records  =  NR 

a)  Number  of  full  records  NFR 

b)  Number  of  columns  in  last  record  NRR 

4)  Read  compressed  matrix  from  113  expand  column 

using  EUTL9.  Provide  for  suppressed  column. 

5)  Take  care  of  full  records  first. 

6)  Next  write  final  clean-up  record  containing 

remaining  matrix  columns. 

4.  Input  Arguments: 


112 

113 

ARRAY 

DARRAY 

NCOL 

NR 

NLEFT 


data  set  to  which  eigen-matrix  is  transferred 
data  set  with  compressed  (Format)  eigen-matrix 
work  storage 
work  storage 
order  of  matrix 

total  number  of  records  on  scratch  data  sex; 
maximum  record  length 


5.  Output  Arguments:  None 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  REGE2 (112,113, ARRAY , DARRAY, NCOL , NR , NLEFT ) 

8.  Input  Tapes:  113  contains  original  format  compressed 
eigenmatrix. 

9.  Output  Tapes:  112  contains  expanded  eigenmatrir.  each 
record  is  up  to  "NLEFT"  words  and  contains  an  integer 
number  of  matrix  columns/record. 

10.  Scratch  Tapes:  None 


11.  Storage  Required: 

Total  Storage  required  is  604.^  Bytes. 
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1.  Subroutine  Name:  EIGB 

2.  Purpose:  Control  iteration  routine  EIG.  Writes 

eigenvalue,  eigenvector  matrices  on  tape. 

3.  Equations  and  Procedures: 

1)  Write  out  controls  used  in  iteration: 

NE  -  number  of  eigenvalues  requested  Defaults  are 

IFLAG  ~  row  or  column  iteration  NOIT  =  500 

NOIT  -  number  of  iterations  per  CRIT  =  .001 

criteria  update 
CRIT  -  convergence  criteria 

2)  Locate  and  expand  input  vecotrs  using  EUTL3 

3)  Call  routine  EIG 

4)  Print  cut  frequency  in  CPS  and  radians/se-  and 

the  normalized  eigenvector 

5)  If  output  vecotrs  are  requested  write  them  on  an 

output  tape  when  vectors  are  written. 

4.  Input  Arguments:  See  calling  sequence. 

5.  Output  Arguments:  None 

6.  Error  Returns: 

7.  Calling  Sequence: 

Call  EIGB(NE,IBEG,IEND,WKR(N1),WKR(N5),WKR(N3),WKR(N4) , 

WKR ( N2 ) , NMDB , NEIGL , NEIGV , NAMOT , NMOUT , WKR ( N  3 ) , 

WKR ( N4 ) ,NSAVE , INVEC , INPT , NMIN , ERR , IFLAG , NOIT , 

NR IT , NVECT , NR , NLEFT ) 

8.  Input  Tapes: 

9.  Output  Tapes:  NSAVE,  NVECT,  NPOT,  NEIGL,  0 

10.  Scratch  Tapes:  NSKRAT 

11.  Storage  Required: 

Total  Storage  required  is  1832^  Bytes. 

12.  Subroutine  User:  EIG1 

13.  Subroutines  Required:  EUTL3 ,  EIG,  EUTL5,  EUTL6 

14.  Remarks: 
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1.  Subroutine  Name:  EIG 

2.  Purpose:  This  routine  computes  only  one  eigenvalue  and 

vector  for  each  call  from  EIGB. 

3.  Equations  and  Procedures: 

1)  Power  method  iteration  with  hotteling  deflation  to 

remove  dominant  root. 

2)  Iterate  on  column  vector,  get  vector  and  value. 

3)  If  another  value  is  desired,  iterate  on  row  vector 

and  value. 

4)  Use  row  and  column  vectors  to  deflate  matrix. 

5)  Use  deflate  matrix  when  iterating  for  next  column 

vector 

6)  If  the  convergence  must  be  updated  (CRITZ  *  CRITZ+CRIT) 

7)  Return  to  routine  EIGB. 

Jj.  Input  Arguments: 

N  -  order  of  characteristic  matrix 

IFRINT  -  =  0  no  iteration  print;  =  1  print  iterations 

NEIG  -  =  always  *  1 

CRIT  -  convergence  criteria 

NOIT  -  number  of  iterations 

IBEG  -  location  (unit)  of  col  (characteristic) 

vector  matrix 

IBEND  -  unit  on  which  deflated  matrix  is  placed 

5.  Output  Arguments: 

ROOTS  -  returned  eigenvalue 

XIN  -  returned  eigenvector 

NERR  -  error  indicator  =  0  no  error;=l  col  do  not  converge 

ICOUNT  -  =  1  if  value  converged  =2  row  does  not  converge 

IFLAG  -  =  both  input  and  output  =3  row  root  /  col  root 

=4  machine  or  input  error 

-  0  go  directly  to  col 
iteration 

*  1  continue  row  iteration 
indicates  row  iteration 
failed  previously  and 
criteria  has  been  increased 

6.  Error  Returns: 

NERR  *  1  no  error;  *  2  eigencols  do  not  converge; 

=3  eigenrows  do  not  converge;  =  4  row  root  not  equal  to 
col.  root;  =  5  no  nonzero  element  in  (col);  *  6  no  non¬ 
zero  element  in  row;  *  7  scalar  product  of  row  and  column 
vectors  =  zero. 
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7.  Calling  Sequence: 

Call  EIGCN.IPRINTjNEIG.ROOTS^IN^ERR.CRIT^OIT^COUNT, 
IBEGjIENDjA^XI ,SIMIN,XINP,NMDB,XIP,XIMINP,NE, 
TPLAG , NUMR , NLEPT , NOFP , NTR 

8.  Inpu  es: 

9.  Outpu  x'apes: 

10.  Scratch  Tapes: 

IBEG  -  initial  (A)  matrix  location  , 

IENI)  -  location  of  swept  (A)  matrix  after  lb  eigenvalue 
is  found.  This  unit  then  becomes  the  input  for 
calculating  the  next  eigenvalue  and  IBEG  will 
receive  the  resulting  swept  matrix. 

11.  Storage  Required: 

Total  Storage  required  is  lB06^g  Bytes. 

12.  Subroutine  User:  EIGB 

13.  Subroutines  Required:  None 

14.  Remarks: 


1. 


Subroutine  Name: 


COLREP 


2.  Purpose:  To  generate  a  matrix  by  repeating  the  first 

input  column  matrix  K  number  of  times  where  K  is  the  column 
dimension  of  the  second  input  matrix. 

3.  Equations  and  Procedures:  The  second  input  matrix  is 

located  and  its  column  dimension,  NCOL,  is  noted.  The 
first  input  matrix  is  located  and  stored  in  core  and  its 
row  dimension,  IROW,  is  noted.  A  matrix  header  for  che 
output  matrix  of  order  IROW  by  NCOL  is  written-  ine  input 
column  is  repeated  NCOL  times  and  the  matrix  trailer  for 
the  output  matrix  is  written. 

k.  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices 

NAMIO  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  array  containing  the  input  scalars 

IERROR  -  error  return  code 

NV/ORK  -  the  number  of  words  of  available  work  storage 
WORK  -  working  storage  array 

5.  Output  Arguments:  IERROR  -  error  flag. 

6.  Error  Returns: 

IERROR  =  11,  if  first  input  matrix  can't  be  found 
=  12,  if  second  input  matrix  can't  be  found 
-  21,  if  output  matrix  can't  be  generated 

7.  Calling  Sequence: 


COLREP ( NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , SCALAR , IERROR , NWORK , WORK ) 


8. 

Input  Tapes: 

INSPEC 

9. 

Output  Tapes: 

IOSPEC 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required 

:  Total  Storage  required  is  644.^  Bytes. 

12. 

Subroutine  User: 

EXEQ 

13. 

Subroutine  Requi 

red:  EUTL3 ,  EUTL5,  EUTL6 

14. 

Remarks :  A  = 

P. COLREP. C 
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1. 


Subroutine  Name: 


NULL 


2. 


3- 


iJ. 


5. 


6. 


Purpose:  To  generate  a  null  matrix  of  order  n  x  m. 

Equations  and  Procedures:  The  first  input  matrix  is 

located  and  the  row  dimension  of  this  matrix  is  saved  in 
KROW.  The  second  input  matrix  is  located  and  the  column 
dimension  of  this  matrix  is  saved  in  KCOL.  Then  a  matrix 
header  and  trailer  is  written.  The  dimension  of  the  out¬ 
put  matrix  is  KROW  x  KCOL. 

input  Arguments: 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN' 

I.NSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

IERROR 

NV/ORK 

WORK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  inp  t  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments:  IERROR  -  error  flag 


Error  Returns: 


IERROR  =  11,  if  first  input  matrix  can't  be  found 
=  12,  if  second  input  matrix  can't  be  found 

7.  Calling  Sequence: 

NULL  ( NUMOT ,  NAMIO ,  IOSPEC ,  NUMIN ,  iiAMIN ,  II.’SPEC  ,  NUMSR ,  ISSPEC , 
NUMSC  ,  SCALAR ,  IERROR ,  NV/ORK ,  WORK ) 

8.  Input  Tapes:  INSPEC 

9.  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  i»8Al6  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required:  EUTL3,  EUTL5 >  EUTL6 

1*1.  Remarks:  A  =  B.NULL.C 
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1.  Subroutine  Name:  DEJOIN 

2.  Purpose:  This  routine  is  the  controlling  routine  to 

provide  matrix  column  or  row  partitioning. 

}.  Equations  and  Procedures:  First,  the  input  and  output 

data  sets  are  defined.  Next  a  check  is  made  to  determine 

if  the  input  data  set  is  the  same  as  either  output  data 
set.  If  either  or  both  of  the  output  data  sets  are  the 
same,  the  output  data  set  is  redefined  as  a  unique  scratch 
data  set.  Now  a  test  is  made  to  determine  if  the  partition 
number  was  input  or  if  it  must  be  found.  If  it  was  not 
input  then  EUTL7  extracts  the  partitioning  scalar.  Now  a 
test  of  whether  a  column  or  a  row  DEJOIN  is  desired  is 
performed.  If  it  is  a  column  DEJOIN,  subroutine  DEJNC 
is  called.  If  it  is  a  row  DEJOIN,  subroutine  DEJNR  is 
called.  If  either  or  both  output  data  sets  are  different 
from  the  originally  allocated  output  data  sets,  a  copy  of 
the  output  data  set  is  made  onto  the  originally  allocated 
data  set  by  a  call  to  EUTL4. 

4.  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices 

NAMIO  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  the  number  of  input  scalars 

ISCALE  -  array  containing  the  input  scalars 

I ERROR  -  error  return  code 

HWORK  -  the  number  of  words  of  available  work  storage 
WORK  -  working  storage  array 

5.  Output  Arguments:  IERROR  -  error  flag 

6.  Error  Returns:  An  error  condition  occurs  when  a  matrix 

cannot  be  located,  the  subscripts  used  to  extract  the 
partition  number  exceed  the  dimension  limit,  or  when  the 
partition  number  is  invalid. 

7.  Calling  Sequence: 

DEJOIN ( NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , ISCALE , IERROR , NWORK , WORK ) 

8.  Input  Tapes:  One  or  twc  input  data  sets  in  the  INSPEC 

array . 
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9.  Output  Tapes:  Two  output  data  sets  in  the  IOSPEC  array. 

10.  Scratch  Tapes:  Two  scratch  data  sets  In  the  ISSPEC  array. 

11.  Storage  Required:  Total  Storage  required  Is  918-^  Bytes. 

12.  Subroutine  User:  2XEQ 

13.  Subroutine  Required: 

EUTL1 

EUTL3 

EUTL7 

DEJNC 

DEJNR 

EUTL4 

14.  Remarks:  A,B  =  C. DEJOIN. (d,e) 
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1.  Subroutine  Name:  DEJNR 

2.  Purpose:  This  routine  row  partitions  a  matrix  at  a 

specified  row. 

3.  Equations  and  Procedures:  First  the  partition  number 

is  tested  against  the  row  dimension  of  the  matrix  to  be 
partitioned  if  it  is  greater  than  the  number  of  rows  an 
error  occurs.  If  it  is  less  than  or  equal  to  the  rov; 
dimension  then  the  input  matrix  A  is  partioned  to  form 
two  output  matrices  Cl  on  C2. 

A(MXN)  -  Cl( J-l  x  n)j  C2(n-J+1  x  n)  where  1  <  J  <  m 

4.  Input  • cguments: 

NAME  -  the  names  of  the  output  matrices 

NSET  -  the  data  set  number  of  the  input  matrix  to  be 

partitioned 

NSET1  -  the  data  set  number  of  the  first  output  matrix 

NSET2  -  the  data  set  number  of  the  second  output  matrix 

JPART  -  the  row  number  at  which  the  input  matrix  is  to 
be  partitioned 

IROW  •>  the  row  dimension  of  the  input  matrix 

ICOL  -  the  column  dimension  of  the  input  matrix 

NWORK  -  the  number  of  words  of  available  working  storage 
WORK  -  working  storage  array 

ERROR  -  error  flag. 

5.  Output  Arguments:  ERROR 

6.  Error  Returns:  An  error  condition  occurs  when  JPART 

is  greater  than  the  row  dimension  of  the  input  matrix. 

7.  Calling  Sequence: 

DEJNR ( NAME , NSET , NSET1 , NSET2 , JPART , IROW , ICOL , NWORK , WORK , 

ERROR) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  NSETI,  NSET2 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  5F6|g  Bytes. 

12.  Subroutine  User:  DEJOIN 

13.  Subroutine  Required:  EUTL5,  EUTL9>  EUTL8,  EUTL6 

1^.  Remarks:  None 
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DEJNC 


1. 


2. 


3- 


Subroutine  Name: 

Purpose:  This  routine  column  partitions  a  matrix  at  a 

specified  column. 


Equations  and  Procedures:  First  the  partition  number  is 

tested  against  the  column  dimension  of  the  matrix  to  be 
partitioned.  If  it  is  greater  than  the  number  of  columns 
an  error  occurs.  If  it  is  less  than  or  equal  to  the  column 
dimension  the  input  matrix  A  is  partitioned  to  form  two 
output  matrices  Cl  and  C2. 

A (MXN)  =  C1(M  x  J-l),  C2(m  x  n-J+1)  where  1  <  J  <_  n 
Input  Arguments: 


NAME 

NSET 

NSET1 

NSET2 

JPART 

IROW 

ICOL 

NWORK 

WORK 

ERROR 


the  names  of  the  output  matrices 

the  data  set  number  of  the  input  matrix  to 

be  partitioned 

the  data  set  number  of  the  first  output  matrix 
the  data  set  number  of  the  second  output  m&crix 
the  column  number  at  which  the  input  matrix  is 
to  be  partitioned 

the  row  dimension  of  the  input  matrix 

the  column  dimension  of  the  input  matrix 

the  number  of  words  of  available  working  storage 

working  storage  array 

error  flag 


5.  Output  Arguments:  ERROR 

6.  Error  Returns:  An  error  condition  occurs  when  JPART  is 

greater  fnan  the  column  dimension  of  the  input  matrix. 

7.  Calling  Sequence: 

DEJNC ( NAME , NSET , NSET1 , NSET 2 , JPART , IROW , ICOL  > NWORK , WORK , 
ERROR) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  NSET1,  NSET2 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  638^  Bytes. 

12.  Subroutine  User:  DEJOIN 

13.  Subroutine  Required:  EUTL5,  EUTL6 

1*J.  Remarks:  None 
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Subroutine  Name: 


ASSEM 


Purpose:  To  assemble  the  element  matrices  generated 

by  the  USERO2!  module. 

Equations  and  Procedures:  The  matrix  containing  the  system 

constants  is  found  to  generate  the  value  NSYS.  The  assembled 
matrices  v/ill  be  of  oraer  NSYS,  that  is,  they  will  not  be 
reduced.  Next,  the  variable  ITYPE  is  tested  to  see  what 
type  of  matrices  are  to  be  assembled.  Depending  on  the 
value  of  ITYPE  control  is  transferred  to  either  ASSEMC  or 
ASSEMS  to  assemble  and  write  the  matrices 

ITYPE  =  1,  for  element  stiffness  assembly 
~  2,  for  element  mass  assembly 
=  3,  for  element  incremental  assembly 
=  for  element  applied  load  assembly. 

Input  Arguments: 


NUMOT 

NAM  10 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

ISCALE 

IERROR 

NWORK 

WORK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  da^a  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments:  None 


Error  Returns: 


IERROR  *  21,  if  the  matrix  containing  the  system  constants 
can't  be  found 

«  15,  if  there  is  not  enough  work  storage  for  the 
assembled  matrix 


Calling  Sequence: 

ASSEM ( NUMOT ,NAMI0 , I0SPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , ISCALE , IERROR , NWORK , WORK ) 

Input  Tapes:  The  data  set  numbers  are  contained  in  the 

INSPEC  array. 


Output  Tapes:  The  data  set  numbers  are  contained  in 

the  IOSPEC  array. 

Scratch  Tapes:  The  data  set  numbers  are  contained  in 

the  ISSPEC  array.  This  module  uses  at  most  two  scratch 
tapes . 

Storage  Required:  Total  Storage  required  is  720^  Bytes. 

Subroutine  User:  EXEQ 

Subroutine  Required: 

EUTL3 

ASSEMC 

ASSEMS 


Remarks : 


A  «  B.ASSEM.C , (d) 


Subroutine  Name: 


ASSEMC 


Purpose:  To  assemble  the  element  applied  ioau  columns. 

Equations  and  Procedures:  The  tape  containing  the  element 

matrices  is  read  and  the  LISTEL  and  PTEL  arrays  are  stored  for 
each  element.  Using  the  LISTEL  array  the  FTEL  arrays  is 
assembled  into  a  master  applied  load  array.  This  process 
is  repeated  for  each  element. 


Input  Arguments: 


NSET1 


NSET2 

namei 

NAME  2 

NSYS 

LISTEL 

FTEL 

FCOL 

MWORK 

WORK 

IERROR 


data  set  on  which  the  input  element  matrices 
are  stored 

data  set  number  of  output  matrix 

array  containing  name  of  matrix  on  NSET1 

ar^ay  containing  name  of  matrix  on  MSETL 

order  of  assembled  matrix 

storage  for  the  LISTEL  array 

storage  for  the  element  applied  loads  array 

storage  for  the  assembled  FTEL 

number  of  words  or  work  storage 

work  storage 

error  return 


Output  Arguments:  None 


Error  Returns: 


IERROR  =  11,  if  the  input  matrix  can't  be  found 

=  15,  if  a  value  of  LISTEL  is  greater  than  NSYS 

Calling  Sequence: 

ASSEMC  (NSET1  ,ilAMEl , NSET2  > NAME2 , NSY S , LISTEL , FTEL , FCOL , 
NWORK, WORK, IERROR) 

Input  Tapes:  h'SETl 

Output  Tapes :  NSET2 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  67 8^  Bytes. 

Subroutine  User:  AS 3 EM 

Subroutine  Required:  EUTL3,  EUTL5,  EUTL6 

Remarks :  None 


1.  Subroutine  Name:  ASSEMS 

2.  Purpose:  To  assemble  the  element  stiffness,  element  mass 

or  element  incremental  matrices  as  generated  by  the  USER 0-i 
module. 

3.  Equations  and  Procedures:  The  matrix  containing  the  input 

element  matrices  is  found  and  depending  on  what  type  of 
matrices  are  to  be  assembled  a  different  read  statement  is 
initiated.  The  LI3TEL  array  and  element  matrix  is  then 
stored  in  core.  Then  using  LIST  processing  techniques  the 
element  matrix  is  assembled  in  core.  Only  non-zero  values 
are  considered.  Jf  all  non-zero  values  can't  fit  in  core 
then  the  values  in  core  are  written  on  tape  „ntil  more 
elements  are  assembled  ir.  core.  These  non-te  o  values  are 
then  merged  with  the  ones  on  tape  to  produce  the  output 
assembled  matrix. 

4.  Input  Arguments: 

NSET1  -  data  set  number  of  tape  containing  element  matrices 

MAMIN  -  array  containing  name  of  matrix  on  NSET1 

HSET2  -  data  set  num-er  of  output  matrix 

MAMOUT  -  array  containing  name  of  output  matrix 

NS1  -  scratch  tape  1 

NS2  -  scratch  tape  2 

NSYS  -  order  of  assembled  matrix 

NCORE  -  number  of  available  words  of  core  storage 

ITYPE  -  indicates  type  of  matrices  to  be  assembled 

ICOLPT  -  storage  needed  for  assembly 

VALUE  -  storage  needed  for  assembly 

I ERROR  -  error  flag 

5.  Output  Arguments:  None 

6.  Error  Returns: 

IERROR  =  11,  if  the  input  matrix  or:  NSETi  cannot  be  found 

7.  Calling  Sequence: 

ASSEMS (NSETi, NAMIN’, MSET2  ,NAMOUT ,NS1  ,NS2  , NS :!S, NCORE,  ITYPE, 

ICOLPT, VALUE, IERROR) 

8.  Input  Tapes:  NSETI 

9.  Output  Tapes:  NSET2 

10.  Scratch  Tapes:  MSI,  NS2 


11. 


Storage  Required  Total  Storage  required  is  2924^  Bytes. 

12.  Subroutine  User:  ASSEM 

13.  Subroutine  Required: 

EUTL3 

EUTL5 

EUTL6 

14.  Remarks:  For  a  more  detailed  documentation  see  the 

source  listing  os  subroutine  ASSEMS. 
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Subroutine  Name: 


STRESS 


1. 


2. 


3. 


4. 


5. 


6. 


7. 


8. 


9. 


Purpose:  This  is  the  control  routine  for  computing  the 

net  element  stress  matrix.  It  also  controls  the  optional 
engineering  print  of  apparent  element  stresses,  element 
applied  stresses  and  net  element  stresses. 


Equations  and  Procedures:  This  module  first  tests  the 

allocation  of  the  input  and  output  matrices.  If  both  input 
matrices  are  on  the  same  data  set,  but  not  on  the  data  set 
to  contain  the  output  matrix,  then  one  of  these  input  matrices 
is  copied  onto  a  scratch  data  set.  If  both  input  matrices 
are  on  the  same  data  set  as  the  output  matrix,  then  each 
input  matrix  is  located  and  copied  onto  a  scratch  data  set. 
When  this  has  been  completed  both  input  matrices  are 
positioned  and  the  matrix  header  for  the  output  matrix  is 
written. 

Pointers  are  next  set  up  indicating  positions  in  the  work 
area  for  arrays  needed  to  compute  the  stresses. 

Subroutine  STRES1  is  called  to  read  element  data  and 
displacements  contained  in  the  input  matrices. 

Input  Arguments: 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

IERROR 

NWORK 

WO.RK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments:  IERROR 


Error  Returns: 


IERROR  «  11  or  21,  if  either  the  first  or  second  input  matrix 

can't  be  found  by  EUTL3 

Calling  Sequence: 

STRESS ( NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , NUMSC , 
SCALAR , IERROR , NWORK , WORK ) 


Input  Tapes:  INSPEC 

Output  Tapes:  IOSPEC 
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10. 


Scratch  Tapes:  ISSPEC 

11.  Storage  Required  Total  Storage  required  is  704^g  Bytes. 

12.  Subroutine  User:  EXEQ 

13-  Subroutine  Required: 

EUTL1 

EUTL3 

EUTL4 

EUTL5 

STRES1 

14.  Remarks:  C  -  A ,B. STRESS. (d,e) 
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1.  Subroutine  Name:  STRES1 

2.  Purpose:  This  routine  reads  element  data  and  displacements, 

calls  STRES2  to  calculate  the  stresses,  then  writes  the  net 
element  stresses  for  each  element. 

3.  Equations  and  Procedures:  A  test  is  first  made  to  see  if 

enough  work  space  is  available  to  process  all  elements 
successfully.  Then  for  each  element  this  module: 

(a)  Reads  a  column  of  the  input  matrix  containing  element 
data  on  NSET1. 

(b)  Compresses  this  column,  keeping  only  the  element  data 
necessary  to  calculate  the  stress. 

(c)  Calls  STRES2  to  calculate  the  stresses  and  print 
them  out. 

(d)  V/rites  the  calculated  net  element  stresses  on  the 
output  data  set.  One  column  is  written  for  each 
element,  such  that  each  column  contains  net  stresses 
for  each  load  condition. 

4.  Input  Arguments: 

NELEM  -  the  number  of  elements 

NLOAD  -  the  number  of  load  conditions 

NMDB  -  the  order  of  the  displacement  array 

MAXEL  -  the  length  of  work  storage  needed  to  process 

the  maximum  size  element 
NL48  -  NLOAD* 4 8 

NSET1  -  the  data  set  number  of  the  input  matrix  con¬ 

taining  element  data 

NSET2  -  the  data  set  number  of  the  input  matrix  con¬ 

taining  the  displacements 

NSET3  -  the  data  set  number  of  the  output  matrix 

NAME  -  the  name  of  the  matrix  on  LSET2 

SCALAR  -  an  array  containing  the  input  scalars 

MAT  -  a  work  array  local  to  STRES1 

IPM  -  a  work  array  local  to  STRES1 

STRESH  -  work  storage  for  the  net  element  stresses 

NWORK  -  the  number  of  words  of -available  working  storage 

WORK  -  working  storage  array 

IERROR  -  error  return 

5.  Output  Arguments:  IERROR  -  error  return 

6.  Error  Returns: 

IERROR  =  15,  if  not  enough  work  storage  to  process  all 
elements . 
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7.  Calling  Sequence: 

STBE3 1 ( NELEM , NLOAD , NMDB , MAXEL , NL4  8 , NSET1 , NSET2 ,NSET  3 , 
NAME , SC ALAR , MAT , I PM , STRESN , NWORK , WORK , IERROR ) 

8.  Input  Tapes:  NSET1 ,  NSET2 

9.  Output  Tapes:  NSET3 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  Bytes. 

12.  Subroutine  User:  STRESS 

13.  Subroutine  Required: 

ELREAD 

FREEUP 

STRES2 

14.  Remarks:  None 


Subroutine  Name: 


STRES2 


Purpose:  This  routine  calculates  the  net  element  stresses 

for  each  load  condition.  Then  calls  STRPRT  to  print  the 
apparent,  applied  end  net  element  stresses. 


Equations  and  Procedures:  A  test  is  first  made  to  see 

if  the  displacements  for  all  load  conditions  can  fit  in 
core.  If  they  can,  then  they  are  read  into  core.  If  the 
displacements  for  all  load  conditions  do  not  fit  into  core 
then  the  displacements  for  each  load  condition  are  read 
into  core  one  at  a  time.  For  each  load  condition  the  net 
element  stresses  are  calculated  and  depending  on  the  option 
specified  the  apparent,  applied  or  net  stresses  are  printed 
for  each  element. 


Input  Arguments: 


I  EL 

I  PL 

NMDB 

NLOAD 

NRSEL 

NORD 

NNO 

NSET2 

INCORE 

FIRST 

NAME 

SCALAR 

LISTEL 

SEL 

SZALEL 

NODES 

STRESN 

NWORK 

DISPL 

IERROR 


the  element  number 

the  element  type  (new  plug  number) 

the  order  of  the  displacement  array 

the  number  of  load  conditions 

the  order  of  the  element  stress  array 

the  order  of  the  LISTEL  array 

the  order  of  the  NODES  array 

the  data  set  number  of  the  displacement  matrix 

a  logical  variable  indicating  in  all  displacements 

are  INCORE 

a  logical  variable 

the  name  of  the  matrix  on  NSET2 

an  array  containing  the  input  scalars 

a  decoding  array  to  go  from  reduced  degrees 

of  freedom  to  system  degrees  of  freedom 

the  element  stress  matrix 

applied  element  stress  matrix 

an  array  containing  the  element  node  points 

net  element  stress  matrix 

the  number  of  words  of  available  working  storage 
the  displacement  array 
error  return 


Output  Arguments:  STRESN,  IERROR 

Error  Returns : 

IERROR  »  21,  if  EUTL3  can't  find  the  displacement  matrix 


7.  Calling  Sequence: 

STRES2 ( IEL , I PL , NMOB , NLOAD ,NRSEL , NORD , NNO , NSET2 , INCORE , FIRST , 
NAME , SCALAR , NSC , LISTEL , NODES , SEL , SZ ALEL , STRESN , NWORK , 
DISPL, TERROR ) 

8.  input  Tapes:  NSET2 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  H7A1g  Bytes. 

12.  Subroutine  User:  STRES1 

13.  Subroutine  Required: 

COLMRD 

EUTL3 

STRPRT 

1^.  Remarks:  None 
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1. 


2. 


3- 


U. 


5. 


6. 


Subroutine  Name:  FORCE 

Purpose:  This  is  the  control  routine  for  computing  the 

net  element  force  matrix.  It  also  controls  the  optional 
engineering  print  of  apparent  element  forces,  element 
applied  forces  and  net  element  forces. 


Equations  and  Procedures:  This  module  first  test  the 

allocation  of  the  input  and  output  matrices.  If  both  input 
matrices  are  on  the  same  data  set,  but  not  on  the  data  set 
to  contain  the  output  matrix,  then  one  of  these  input  matrices 
is  copied  onto  a  scratch  data  set.  If  both  input  matrices 
are  on  the  same  data  set  as  the  output  matrix,  then  each 
input  matrix  is  located  and  copied  onto  a  scratch  data  set. 
When  this  has  been  completed  both  input  matrices  are 
positioned  and  the  matrix  header  for  the  output  matrix  is 
written. 

Pointers  are  next  set  up  to  indicating  positions  in  the 
work  area  for  arrays  needed  to  compute  the  forces. 

Subroutine  F0RCE1  is  called  to  read  element  data  and 
displacements  contained  in  the  input  matrices 


Input  Arguments: 


NUMOT 

NAMOT 

IOSPEC 

NUMIN 

I!  AMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

I ERROR 

NWORK 

WORK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments:  TERROR 


Error  Returns: 


IERROR  =  11  or  21,  if  either  the  first  or  second  input 

matrix  can't  be  found  by  EUTL3 


Calling  Sequence: 


FORCE ( NUMOT , NAMOT , IOSPEC , NUMIN , MAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , SC P LAR , IERROR , NWORK , WORK ) 
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8.  Input  Tapes:  INSPEC 

9*  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  ISSPEC 

11.  Siorage  Required:  Total  Storage  required  is  70^-  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required: 

EUTL1 

EUTI3 

EUTL4 

EUTL5 

PORCE1 

14.  Remarks:  C  =  A, B. FORCE. ,e) 
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Subroutine  Name: 


FORCE 1 


Purpose:  This  routine  reads  element  data  and  displacements, 

calls  F0RCE2  to  calculate  the  stresses,  then  writes* the 
net  element  forces  for  each  element. 

Equations  and  Procedures:  A  test  is  first  made  to  see 

if  enough  work  space  is  available  to  process  all  elements 
successfully.  Then  for  each  element  this  module: 

(a)  Reads  a  column  of  the  input  matrix  containing  element 
data  on  NSETl. 

(b)  Compresses  this  column,  keeping  only  the  element  data 
necessary  to  calculate  the  forces. 

(c)  Calls  F0RCE2  to  calculate  the  forces  and  print  them 
out . 

(d)  Writes  the  calculated  net  element  forces  on  the 
output  data  set.  One  column  is  written  for  each 
element,  such  that  each  column  contains  net  stresses 
for  each  load  condition. 


Input  Arguments: 


NELEM 

NLOAD 

NMDB 

MAXEL 

NL48 

L'SETl 

NSET2 

NSET3 
NAME 
SCALAR 
MAT 
I  PM 

FORCEN 

NWORK 

WORK 

IERROR 


the  number  of  elements 

the  number  of  load  conditions 

the  order  of  the  displacement  array 

the  length  of  work  storage  needed  to  process 

the  maximum  size  element 

NLOAD* 48 

the  data  set  number  of  the  input  matrix 

containing  element  data 

the  data  set  number  of  the  input  matrix 

containing  the  displacements 

the  data  set  number  of  the  output  matrix 

the  name  of  the  matrix  on  NSET2 

an  array  containing  the  input  scalars 

a  work  array  local  to  F0RCE1 

a  work  array  local  to  F0RCE1 

work  storage  for  the  net  element  forces 

the  number  of  words  of  available  working  storage 

working  storage  array 

error  return 


Output  Arguments:  IERP.OR  -  error  return 

Error  Returns: 

IERROR  *  15,  if  not  enough  work  storage  to  process  all 
elements 

Calling  Sequence: 

FORCE 1 ( NELEM , NLOAD , NMDB , MAXEL , NL  4  8 , NSET 1 , NSET2 , NSET  3 , NAME , 
SCALAR , MAT , I PM , FORCEN , NWORK , WORK , I ERROR ) 


Input  Tapes:  JNCET1,  NSET2 

Output  Tapes:  NSET3 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  756 

Subroutine  User:  FORCE 

Subroutine  Required: 

ELREAD 

FREEUP 

FORCE2 


Remarks : 


None 


1.  Subroutine  Name:  F0RCE2 

2.  Purpose:  This  routine  calculates  the  net  element  forces 

for  each  load  condition.  Then  calls  STRPRT  to  print  the 
apparent,  applied  and  net  element  forces. 

3.  Equations  and  Procedures:  A  test  is  first  made  to  see 

if  the  displacements  for  all  load  conditions  can  fit  in 
core.  If  they  can,  then  they  are  read  into  core.  If  the 
displacements  for  all  load  conditions  do  not  fit  into  core 
then  the  displacements  for  each  load  condition  are  read 
into  core  one  at  a  time.  For  each  load  condition  the  net 
element  forces  are  calculated  and  depending  on  the  option 
specified  the  apparent,  applied  or  net  forces  are  printed 
for  each  element. 

Input  Arguments: 

IEL  -  the  element  number 

IPL  -  the  element  type  (new  plug  numoer) 

NMDB  -  the  order  of  the  displacement  array 

NLOAD  -  the  number  of  load  conditions 
NOINK  -  the  order  of  the  element  stiffness  array 

NORD  -  the  order  of  the  LIS'TEL  array 

NNO  -  the  order  of  the  nodes  array 

NSET2  -  the  data  set  number  of  the  displacement  matrix 

INCORE  -  a  logical  variable  indicating  if  all  displace¬ 
ments  are  in  core 
FIRST  -  a  logical  variable 

NAME  -  the  name  of  the  matrix  on  NSET2 
SCALAR  -  an  array  containing  the  input  scalars 

NSC  -  an  array  containing  the  number  of  stress 

components  for  each  element  type 
LISTEL  -  a  decoding  array  to  go  from  reduced  degrees 
of  freedom  to  system  degrees  of  freedom 
AKEL  -  the  element  stiffness  array 

FTEL  -  an  array  containing  element  applied  force 

NODES  -  an  array  containing  the  element  node  point 
FORCEN  -  net  element  force  matrix 

1IW0RK  -  the  number  of  words  of  available  working  storage 
DISPL  -  the  displacement  array 

IERROR  -  error  return 

5.  Output  Arguments:  FORCEN,  IERROR 

6.  Error  Returns: 

IERROR  =  21,  if  EUTL3  can't  find  the  displacement  matrix 
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Calling  Sequence: 

F0RCE2 ( IEL , I PL , NMDB , NLOAD , NOINK , NORD , NNO , NSET2 , INCORE 
FIRST , NAME , SCALAR , NSC , LISTEL , AKEL , FTEL , NODES , 
FORCEN , NWORK , DIS  PL , IERROR ) 

Input  Tapes:  NSET2 

Output  iapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  lOCA^  B 

Subroutine  User:  FORCE1 

Subroutine  Required: 

COLMRD 

EUTL3 

STRF-RT 


Remarks : 


None 


1.  Subroutine  Name:  EPRINT 

2.  Purpose:  To  print  out  the  net  element  forces  or  net 

element  stresses  calculated  by  the  FORCE  or  STRESS  •modules . 

3.  Equations  and  Procedures:  This  module  first  tests  the 

allocation  of  the  input  matrices.  If  both  input  matrices 
are  on  the  same  data  set,  then  the  first  input  matrix  is 
copied  onto  a  scratch  data  set. 

The  input  matrices  are  found  and  tested  for  compatability 
and  the  first  input  matrix  is  copied  if  necessary. 

The  matrix  containing  element  information  is  read  a  column 
at  a  time  as  is  the  matrix  containing  the  net  element  stress 
or  forces.  Then  the  input  print  control  is  tested  in  order 
to  write  out  the  correct  heading  for  either  the  forces  or 
stresses.  Subroutine  STRPRT  is  called  for  each  load 
condition  to  print  out  the  values  in  the  second  input  matrix. 

4.  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices 

NAMIO  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  array  'containing  the  input  scalars 

IERROR  -  error  return  code 

NWORK  -  the  number  of  words  of  available  work  storage 
WORK  -  working  storage  array 

5.  Output  Arguments:  IERROR  -  error  return. 

6.  Error  Returns: 

IERROR  «  11  if  EUTL3  can’t  find  first  input  matrix 

*  12  if  EUTL3  can’t  find  second  input  matrix. 

7.  Calling  Sequence: 

EPRINT (NUMOT, NAMIO, IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , SCALAR , IERROR , NWORK , WORK ) 


8. 

Input  Tapes: 

INSPEC 

9. 

Output  Tapes: 

None 
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10.  Scratch  Tapes:  This  routine  uses  at  most  one  scratch 

tape . 

11.  Storage  Required:  Total  Storage  required  is  1028.^  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutines  Required: 

EUTL3 

ELREAD 

FREEUP 

STRPRT 

14.  Remarks:  EPRINT(a,b,c)D 
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1. 


Subroutine  Name: 


STRPRT 


2.  Purpose:  To  write  on  the  system  output  data  set  the 

values  calculated  by  the  FORCES  and  STRESS  modules. 

3-  Equations  and  Procedures: 

(a)  Test  the  input  variable  IFMT  to  write  out  the  correct 
heading  for  the  element  type  being  processed. 

(b)  Calculate  the  number  of  stress  or  force  points  to 
be  printed. 

(c)  If  ABS( STRESS ( I ) )  <  EZERO  then  STRESS ( I )=0 . 0 . 

(d)  V/rite  out  the  values  in  array  STRESS  accoraing  to 
the  input  format. 

4.  Input  Arguments: 

IFMT  -  indicates  element  type  and  either  stress  or 
force  print 

EZERO  -  suppression  value 

NRSEL  -  length  of  STRESS  array 

FMT  -  format  used  in  printer 

NSC  -  number  of  force  or  stress  component 

STRESS  -  input  array  containing  force  or  stress 
to  be  printed 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

STRPRT ( IFMT , EZERO , NRSEL , FMT , NSC , STRESS ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  £20^  Bytes. 

12.  Subroutine  User:  STRES2,  F0RCE2,  EPRIiiT 

13.  Subroutine  Required:  None 

1A.  Remarks:  None 
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Subroutine  Name: 


ELREAD 


Purpose:  This  routine  reads  one  column  of  the  matrix 

which  contains  element  information  and  puts  that  column 
in  working  storage  and  returns  element  variables. 

Equations  and  Procedures:  Reads  one  column  of  the  input 

matrix  which  contains: 

I EL  ,  IPL, 

NORD , (LISTEL( I ), 1=1, NORD), 

NOINK, (AKEL(I) ,1=1, NOINK) , 

NORD, (PTEL(I) ,1=1, NORD) , 

NNO, (NODES(I) ,I  =  1,NN0) , 

NSEL, (SEL( I ) , 1*1 ,NSEL) , 

NRSEL, (SZALEL(I) ,1=1, NRSEL) , 

NOINK, (ANEL(I) ,1=1, NOINK) , 

NMASS, (AMASS(I) ,1=1, NMASS) 

Then  decodes  and  returns  the  variables 
IEu. IPL, NORD, NOINK, NNO, NSEL, NRSEL  and  NMASS 


where 

LISTEL 
AKEL 
FT  EL 
NODES 
SEL 

SZALEL 

ANEL 

AMASS 


contains  boundary  condition  information 
is  the  element  stiffness  matrix 
is  the  applied  load  matrix 

contains  the  grid  points  defining  the  element 
is  the  element  stress  array 
is  the  thermal  stress  array 
is  the  incremental  stiffness  array 
is  the  element  mass  matrix 


Input  Arguments: 


NSET 

WORK 

NWORK 

I  EL 

IPL 

NORD 

NO  INK 

NNO 

NSEL 

NRSEL 

NMASS 


data  set  number  of  input  matrix 

working  storage  into  which  element  data  is  read 

number  of  words  available  in  the  work  array 

the  element  number 

the  element  type  (plug  number) 

the  order  of  the  LISTEL  and  FTEL  arrays 

the  order  of  the  AKEL  and  ANEL  arrays 

the  order  of  the  nodes  array 

the  order  of  the  SEL  array 

the  order  of  the  SZALEL  array 

the  order  of  the  AMASS  array 


Output  Arguments: 


NLEFT 

NEXT 


the  number  of  work  remaining  in  the  work  array 
the  next  useable  position  in  the  work  array 


6.  Error  Returns:  None 

7.  Calling  Sequence: 

ELREAD ( NSET , WORK , NWORK , NLEFT , NEXT , IEL , I PL , NORD , NO INK , NNO 
NSEL , NRSEL , NMASS ) 

8.  Input  Tapes:  NSET 

9*  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  Bytes 

12.  Subroutine  User:  STRES1,  F0RCE1 

13.  Subroutine  Required:  None 

1^.  Remarks:  None 
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1.  Subroutine  Name:  PREEUP 

2. '  Purpose:  This  routine  is  used  to  compress  the  work 

array  by  compressing  out  unwanted  matrices  and  freeing 
up  more  storage  used  after  a  call  to  ELREAD. 

3.  Equations  and  Procedures:  This  routine  will  only  com- 

presss  an  array  containing  submatrices  which  are  preceeded 
by  tne  length  of  the  submatrix. 

The  number  of  non-zero  elements  of  MAT  is  t'ested  against 
NMAT.  If  they  aren't  equal  then  an  error  occurs. 

The  work  array  is  then  compressed  by  searching  for  those 
submatrices  to  be  saved  as  indicated  by  a  non-zero  position 
in  the  MAT  array.  When  a  submitrix  to  be  kept  is  found  it 
is  moved  up  in  the  work  array  and  its  initial  position  in 
the  work  array  is  kept  track  of  in  the  IPM  array. 

The  space  taken  up  by  submatrices  not  wanted  is  now  freed-up 
for  use  by  someone  else. 

if.  Input  Arguments: 

WORK  -  the  input  matrix  to  be  compressed  up 

ISTART  -  the  position  of  the  dimension  of  the  first 

submatrix  in  the  work  array 

IPWORK  -  the  position  in  the  work  array  at  which  the 
submatrices  are  to  be  moved  up  to 
MATOUT  -  an  integer  indicating  the  number  of  submatrices 
to  be  kept,  should  equal  the  number  of  non-zero 
elements  in  the  MAT  array 
NMAT  -  the  length  of  the  MAT  and  IPM  arrays 

MAT  -  If  MAT(I)  is  non-zero  then  the  sub-matrix 

in  the  Ifch  position  will  be  kept,  if 
MAT(I)=Q  then  that  submatrix  will  be  compressed 
out . 

5.  Output  Arguments: 

WORK  -  the  cleaned-up  inpi  0  array 

IPM  -  contains  the  initial  position  of  the  saved 

submatrix  in  the  cleaned-up  work  array 
NEXT  -  the  next  useable  position  in  the  work  array 
IERROR  -  error  return 

6.  Error  Returns: 

IERROR  -  15,  if  there  is  an  input  error 
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7.  Calling  Sequence: 

FREEUP ( WORK , ISTART , I PWORK , MATOUT , NMAT , MAT ,  IPM , NEXT , IERROR ) 

8.  Input  Tape:  None 

9.  Output  Tape:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  Bytes. 

12.  Subroutine  User:  STRES1,  FORCE! 

13.  Subroutine  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  COLMRD 

2.  Purpose:  This  routine  is  a  utility  routine  used  to 

read  a  column  and  uncompress  it  if  necessary.  Used 
when  storing  more  than  one  column  in  the  work  array. 

3.  Equations  and  Procedures:  One  column  of  the  input  data 

set  is  read  and  EUTL9  is  called  to  uncompress  the  column 
if  necessary. 

*1.  Input  Arguments: 

WORK  -  working  storage  array,  used  to  input  and 
output  the  column  read 

NSET  -  the  data  set  number  of  the  matrix  to  be 
read 

LENGTH  -  the  length  of  storage  available  to  EUTL9 

5.  Output  Arguments:  WORK 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

COLMRD ( WORK , NSET , LENGTH ) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  lDA^  Bytes. 

12.  Subroutine  User:  STRES2,  F0RCE2 

13.  Subroutine  Required: 

EUTL9 

1*1.  Remarks:  None 
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1.  Subroutine  Name:  GPRINT 

2.  Purpose:  This  is  the  control  routine  for  engineering 

printout  of  grid  point  data  of  reactions,  displacements 
and  eigenvectors.  It  can  also  be  used  for  printout  of 
user  matrices. 

3-  Equations  and  Procedures:  Index  pointer  indicating  the 

initial  position  in  the  work  array  are  calculated  to  make 
use  of  dynamics  storage  allocation. 

Subroutine  GPRINT1  is  called  to  process  input  matrices. 

4.  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices 

NAMIO  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN'  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUM3R  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  array  containing  the  input  scalars 

NWORK  -  the  number  of  words  of  available  work  storage 

WORK  -  working  storage  array 

5.  Output  Arguments:  IERROR 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

GPRINT (NUMOT , NAMIO , IOSPEC , NUMIN , NAM IN , INSPEC ,NUMSR , ISSPEC , 

NUMSC , SCALAR , IERROR , NWORK , WORK ) 

8.  Input  Tapes:  INSPEC 

9.  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  ISSPEC  -  one  scratch  tape  required 

11.  Storage  Required:  Total  Storage  required  is  3C8l6  Eytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required:  GFRINT1 

14.  Remarks:  GPRINT(a,b,c,Cl.C2.C3.C4 .C5.C6.C7.C8 .C9.C10.C11 .C12 , 

D,E,F)G ,H 
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1.  Subroutine  Name:  GPRNT1 

2.  Purpose:  This  routine  processes  the  input  matrices  and 

calls  the  appropriate  subroutines  to  print  either  reactions, 
displacements,  eigenvalues  and  eigenvectors  or  the  user 
input  matrix. 

Equations  and  Procedures:  The  input  matrices  are  all 

found  and  processed  as  they  are  found.  If  an  input  matrix 
can't  be  found  then  IERROR  is  set  to  indicate  which  matrix 
could  not  be  found.  Processing  is  terminated. 

(a)  Process  first  input  matrix  - 
This  matrix  contains  system  constants: 

NDIR  -  the  number  of  directions 

NDEG  -  the  number  of  types  of  degrees  of  freedom 

HREF  -  the  number  of  reference  points 

These  are  used  to  calculate  the  number  of  degrees  of 
freedom  in  the  system 

NSDOF  =  NDIK*NDEG#NREF 

(b)  Process  second  input  matrix  - 
This  is  the  transformation  matrix  for  application  of 
boundary  conditions  from  which  the  LIST  array  can  be 
calculated.  If  this  matrix  is  suppressed  then  generate 
a  dummy  list  array. 

(c)  Process  third  and  fourth  input  matrix  - 
This  matrix  is  either  the  reaction,  displacement,  eigen¬ 
vector  or  user  matrix  to  be  printed  in  eigineering 
format.  If  it  is  the  eigenvector  matrix  then  the  fourth 
input  matrix  is  the  eigenvector  matrix.  Depending  on 
the  input  scalar  KPRT  control  is  transferred  to  the 
section  which  decodes  one  of  the  above  matrices  for 
constants.  Then  the  matrix  is  stored  in  a  scratch  tape 
and  control  transfers  to  the  subroutine  which  prints 
out  the  matrix. 


4.  Input  Arguments: 


NUMOT 

MAMIO 

IOSPEC 

NUMIN 

NAMIN' 

INSPEC 

NUMSR 

ISSPEC 


the  number  of  output  matrices 

the  names  of  the  outpu.  matrices 

an  array  containing  output  data  set  information 

the  number  of  input  matrices 

the  names  of  the  input  matrices 

an  array  containing  input  data  set  information 

the  number  of  scratch  data  sets  available 

an  array  containing  scratch  data  set  information 
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4.  Input  Arguments,  Contd. 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  an  array  containing  the  input  scalar 

MAGEIG  -  maximum  number  of  eigenvalues  that  can  be  asked  for 

LIST  -  array  used  for  boundary  condition  information. 

Decoding  list  to  go  from  reduced  degrees  of 
freedom  to  total  degree  of  freedom. 

DISPL  -  working  storage  for  third  input  matrix 

EIGVAL  -  array  to  contain  eigenvector 

HWORK  -  number  of  words  of  available  working  storage 
WORK  -  working  storage  array 

5*  Output  Arguments:  IERROR 

6.  Error  Returns: 

IERROR  =  15,  user  type  error 

=  10#K+1,  where  K  is  the  position  of  the  input  matrix 
not  found. 

7-  Calling  Sequence: 

GPRNT1 ( NUMOT ,  NAM10 ,  IOSPEC , NUMIN ,  NAMIN' ,  INSPEC ,  NUMSR ,  ISSPEC  , 

NUMSC ,  SCALAR ,  IERROR  ,MAXEIG ,  LIST ,  DIS  PL ,  EIGVAL ,  NV/ORK , 

WORK ) 

8.  Input  Tapes:  INSPEC 

9.  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  ISSPEC 

11.  Storage  Required:  Total  Storage  required  is  1000^  Bytes. 

12.  Subroutine  User:  GPRINT 

13.  Subroutine  Required: 

EUTL3  DISPPR 

EUTL9  EIGPPR 

DECODE  MATPRT 

REACTP 

14.  Remarks:  None 
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1.  Subroutine  Name:  DECODE 

2.  Purpose:  This  routine  will  decode  a  format  matrix  and 

put  it  out  in  the  form  of  full  column  records  with  no  headers 
or  trailers. 

3.  Equations  and  Procedures:  Read  each  column  into  a  work 

array  and  test  to  see  if  it  should  be  uncompressed.  Also 
keep  count  of  the  number  of  columns  read  in  case  there  are 
any  missing  columns.  A  missing  column  indicates  that  all 
row  elements  are  zero  so  regenerate  the  zero  column.  If 

an  error  occurs  then  call  TSUM  to  give  a  tape  summary  of  the 
input  data  set. 

4.  Input  Arguments: 

NSET  -  the  data  set  number  of  the  FORMAT  matrix 

NSETS  -  the  data  set  number  of  the  tape  on  which  the 

decoded  matrix  will  go 
IRON  -  row  dimension  of  input  matrix 

ICOL  -  column  dimension  of  input  matrix 

WORK  -  work  array  of  order  IROW 

5.  Output  Arguments:  JERROR  -  error  flag 

6.  Error  Returns: 

/ 

JERROR  =  0,  no  error 
JERROR  =  1,  error 

7.  Calling  Sequence: 

DECODE ( NSET , NSETS , IROW , ICOL , WORK , JERROR ) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  NSETS 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  Bytes. 

12.  Subroutine  User:  GPRNT1 

l'j.  Subroutine  Required: 

EUTL9 

TSUM 

14.  Remarks:  None 
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1.  Subroutine  Name:  REACTP 

2.  Purpose:  This  routine  controls  the  printing  of  reaction. 

3.  Equations  and  Procedures:  Subroutine  DISPL1  is  called  to 

print  out  reactions  for  each  load  condition. 

4.  Input  Arguments: 

NREF  -  number  of  reference  points 

NDIR  -  number  of  directions 

NDEG  -  number  of  types  of  degrees  of  freedom 

NLOAD  -  number  of  load  conditions 

NMDB  -  number  of  degrees  of  freedom  in  a  reduced  system 

NSETS  -  data  set  number  of  reaction  matrix 

LIST  -  decoding  list  to  go  from  reduced  degrees  of 

freedom  to  total  degrees  of  freedom 
REACT  -  array  containing  reactions 

EZERO  -  effective  zero  for  suppression 

ROW  -  row  label 

COLMS  -  array  of  column  labels 

KPRT  -  code  denotes  reaction  print 

NWORK  -  number  of  words  available  in  working  storage 

WORK  -  working  storage 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

REACTP ( NREF , NDIR , NDEG , NLOAD , NMDB , NSETS , LIST , REACT , EZERO , 

ROW , COLMS , KPRT , NWORK , WORK ) 

8.  Input  Tapes:  NSETS 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  Required  is  322., 6  Bytes. 

12.  Subroutine  User:  GPRNT1 

13.  Subroutine  Required:  DISPL1 

14.  Remarks:  None 
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1.  Subroutine  Name:  DISPPR 

2.  Purpose:  This  routine  controls  the  printing  of  th 

displacements . 

3.  Equations  and  Procedures:  Subroutine  DISPL1  is  called 

to  print  out  displacements  for  each  load  condition. 

4.  Input  Arguments: 

NREF  -  number  of  reference  points 

NDIR  -  number  of  directions 

NDEG  -  number  of  types  of  degrees  of  freedom 

NLOAD  -  number  of  load  conditions 

NMDB  -  number  of  degrees  of  freedom  in  reduced  system 

NSETS  -  data  set  number  of  displacement  matrix 

LIST  -  array  for  boundary  conditions.  Decoding  list 

to  go  from  reduced  degrees  of  freedom  to  total 
degrees  of  freedom. 

DISPL  -  array  containing  displacements 

EZERO  -  effective  zero  for  suppression 

ROW  -  row  label 

COLMS  -  array  of  column  labels 

KPRT  -  code  denoting  displacement  print 

NWORK  -  number  of  words  of  available  working  storage 

WORK  -  working  storage 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

DISPPR ( NREF , NDIX , NDEG , NLOAD , NMDB , NSETS , LIST , DISPL , EZERO , 

ROW , COLMS , KPRT , NWORK , WORK ) 

8.  Input  Tapes:  NSETS 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  322-^g  Bytes. 

12.  Subroutine  User:  GPRNT1 

13.  Subroutine  Required:  DISPL1 

14.  Remarks:  None 
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1 . 

Subroutine  Name:  EIGPPR 

2. 

Purpose:  This  routine  controls  the 

and  eigenvectors. 

printing 

of 

eigenvalues 

3. 

Equations  and  Procedures:  Subroutine  DISPL1 

print  out  eigenvalues  and  eigenvector  for  each 

is  called  to 
eigenvalue . 

H. 

Input  Arguments: 

NREF 

NDIR 

HD  EG 

NEVAL 

IJMDB 

HSETS 

LIST 

DISPL 

EIGVAL 

EZERO 

ROW 

COLMS 

KPRT 

NWORK 

WORK 


number  of  reference  points 

number  of  directions 

number  of  types  of  degrees  of  freedom 

number  of  eigenvalues 

length  of  eigenvector  array 

data  set  number  of  eigenvector  matrix 

decoding  list  to  go  from  reduced  degrees  of 

freedom  to  total  degrees  of  freedom 

array  containing  eigenvector 

array  containing  eigenvalues 

effective  zero  for  suppression 

row  label 

array  of  column  labels 
code  denoting  eigenprint 

number  of  words  available  in  working  storage 
working  storage 


5.  Output  Arguments:  Hone 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

EIGPPR ( HREF, NDIR, HDEG,NEVAL ,HMDB, HSETS, LIST ,DISPL,£IGVAL , 
EZERO , ROW , COLMS , KPRT , NWORK , WORK ) 

8.  Input  Tapes:  HSETS 

9.  Output  Tapes:  Hone 

10.  Scratch  Tapes:  Hone 

11.  Storage  Required:  Totai  Storage  required  is  Bytes. 

12.  Subroutine  User:  GPRNT1 

13.  Subroutine  Required:  DISPL1 

1J).  Remarks:  No:  •> 
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SuDroutine  Name: 


MATPRT 


Purpose:  This  routine  controls  the  printing  of  the  USER 

matrix. 

Equations  and  Procedures:  Subroutine  DISPL1  is  called 

to  print  each  column  of  the  user  matrix. 


Input  Arguments: 


NREF 

NDIR 

NDEG 

NLOAD 

NMDB 

NSETS 

LIST 

DISPL 

EZERO 

NAME 

ROW 

COLMS 

KPRT 

NWORK 

WORK 


number  of  reference  points 

number  of  directions 

number  of  types  of  degrees  of  freedom 

number  of  columns 

length  of  rows 

data  sec  number  of  USER  matrices 

decoding  list  to  go  from  reduced  degrees  of 

freedom  to  total  degrees  of  freedom 

array  containing  user  matrices 

effective  zero  for  suppression 

name  of  input  matrix 

row  label 

array  containing  column  label 

code  denoting  user  matrix  print 

number  of  words  available  in  working  storage 

working  storage 


Output  Arguments:  None 


Error  Returns:  None 


Calling  Sequence: 

MATPRT ( NREF , NDIR , NDEG , NLOAD , NMDB , NSETS , LIST , DISPL , EZERO , 
NAME , ROW , COLMS , KPRT , NWORK , WORK ) 

Input  Tapes:  NSETS 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  366^g  Bytes. 
Subroutine  User:  GFRNT1 


Subroutine  Required:  DISPL1 _ 


Remarks : 


None 


Subroutine  Name: 


DISPL1 


Purpose:  To  print  reactions,  displacements,  eigenvectors, 

user  matrices,  and  calculate  and  print  eigenvalues  and  frequency. 

Equations  and  Procedures:  The  value  of  KPRT  is  tested  to 

see  if  the  eigenvalue  frequency  must  be  calculated  and  to 
write  out  correct  heading  then  the  input  matrix  is  decoded 
and  printed  out. 


Input  Arguments: 


NMDB 

EZERO 

DISPL 

LIST 

NREF 

NDEG 

NLOAD 

ROW 

TITLE 

KPRT 

EXTRA 

DISP 


number  of  degrees  of  freedom  in  reduced  system 

effective  zero  suppression  code 

input  matrix  to  be  printed 

decoding  list  to  go  from  reduced  degrees  of 

freedom  to  total  degrees  of  freedom 

number  of  reference  points 

number  of  types  of  degrees  of  freedom 

load  condition  number 

row  label 

column  label 

code  indicating  types  of  print 

contains  name  of  input  matrix  or  eigenvalues 

working  storage 


Output  Arguments:  None 

Error  Returns :  None 


Calling  Sequence: 

DISPLKNMDB,  EZERO,  DISPL,  LIST,  NREF,  NDIR,  NDEG,  NLOAD,  ROW,  TITLE, 
KPRT, EXTRA, DISP) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  906^  Bytes. 
Subroutine  User:  REACTP,  DISPPR,  EIGPPR,  MATPRT 

Subroutine  Required:  None 


Remarks : 


None 


1.  Subroutine  Name:  US04 

2.  Purpose:  Control  operation  of  the  structural  generative 
system  (USER04  module) 

j.  Equations  and  Procedures:  The  error  indicator,  ERROR,  is 
initially  set  to  .FALSE..  Subroutine  US04A  is  then  called 
to  control  the  input  operations.  Subroutine  US04B  is  called 
to  control  the  element  matrix  generation  and  output  phases. 
If  an  error  has  occurred  in  the  input  phase  then  the  call 
to  US04b  is  skipped.  All  information  received  from  the 
Format  Monitor  is  relayed  to  US04A  and  USO^B. 

4.  Input  Arguments: 

NUMOT:  Number  of  output  matrices 

NAMOUT:  Array  containing  output  matrix  names 

I OS PEC •  Unit  specifications  for  output  matrices 

NUMIN *•  Number  of  input  matrices 

MAMIN :  Array  containing  input  matrix  names 

I.MSPEC:  Unit  specifications  for  input  matrices 

MUMSR '•  Number  of  available  scratch  units 

TSSPEC:  Scratch  unit  specifications 

NUMSC :  Number  of  scalars 

SCALAR;  Array  containing  seal: rs 

NWORKR •  Number  of  available  storages  in  blank  common  work 
area 

WORK:  Work  storage  area 

T PRINT:  System  print  control 

8 .  Output  Argument: 

ERROR:  Error  condition  indicator 


6 . 

Error  Returns:  If  error  has  occurred  in 
then  ERROR  will  be  .TRUE,  upon  return  to 

US04A  or  US04B 
the  calling  program 

7. 

Cal ling  Sequence : 

CALI  US04  (NUMOT,  NAMOUT,  IOSPEC,  NUMIN,  MAMIN,  INSPEC, 

NUMSR,  ISSPEC,  NUMSC,  SCALAR,  ERROR,  NWORKR,  WORK,  I PRINT) 

8. 

Input  Tapes:  None 

Output  Tapes:  None 

10. 

Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  52C^g  Bytes. 
1„ ,  Subroutine  User:  SEXEQ 
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13.  Subroutines  Required; 

US04A 

US04B 

l-'l .  Remarks:  None 
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1.  Subr  tine  Name:  NTEST 

2.  Purpose:  To  determine  if  output  matrix  is  to  be  generated 

by  US04 

3.  Equations  and  Procedures:  The  first  position  in  the  output 
name  is  compared  to  a  slash  (/).  If  this  first  character  is 

a  slash  then  the  matrix  is  not  to  be  calculated.  If  the  first 
character  is  not  a  slash  then  the  matrix  will  be  calculated 
and  output. 

4.  Input  Arguments:  NAME  -  array  containing  output  matrix  name 

5.  Output  Arguments:  K0DE  -  control  code 

if  K0DE  equals  zero  then  matrix  is 
calculated 

if  K0DE  equals  one  then  matrix  is 
not  calculated 

6.  Error  Returns:  None 

7.  Calling  Sequence:  Call  NTEST  (NAME,  K0DE) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  156^  Bytes. 

12.  Subroutine  User:  US04A,  US04B 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1 .  Subroutine  Name :  REC1 


2.  Purpose:  Write  or  read  element  input  tape  record 

3.  Equations  and  Procedures:  The  decision  to  write  or  read  the 
tape  record  is  determined  by  examing  the  input  variable 

I OPT  in  the  following  manner: 

( 1 )  If  IOPT  >  2  then  the  tape  record  will  be  written 

(2)  If  IOPT  £  1  then  the  tape  record  will  be  read 

4.  Input  Arguments:  (when  IOPT  ^.2) 

IOPT  :  Read/write  indicator 

K  :  Involved  unit  number 

Nil  :  Number  of  words  in  tape  record,  excluding  Nil 
IPL  :  Element  type  number  (plug  number) 

X  :  M  XM  coordinates  of  element  definition  points 

Y  :  M  Y"  coordinates  of  element  definition  points 

Z  :  u  Z"  coordinates  of  element  definition  points 

T  :  Temperatures  at  element  definition  points 

P  :  Pressures  at  element  definition  points 

NLIST  :  Total  degrees  of  freedom  in  element 
L1STEL  :  Boundary  condition  information  list 
NNO  :  Number  of  element  defining  points 

NODES  :  Grid  point  numbers  of  element  defining  points 

IP  :  Extra  element  input  and  matrix  repeat  indicator 

DISPEL  ?  Input  displacements  for  element  degrees  of  freedom 
PCOLEL  :  External  loads  for  element  degrees  of  freedom 
LISTDL  :  Not  used 

IG  :  Maximum  number  of  element  defining  points 

NEL  :  Element  number 

GPAXEL  :  Grid  point  ax  s  transformation  matrices  for  element 
defining  points 
NUMMAT  :  Length  of  MAT  array 

MAT  :  Array  containing  interpolated  material  properties 

NUMEPS  :  Length  of  EPSIO  array 

EPS 10  :  Pre-strain  load  vector 

NUMSO  :  Length  of  SO  array 

SO  :  Pre-stress  load  vector 

EXTRA  :  Extra  element  input 

5.  Output  Arguments:  (when  IOPT  <1) 

With  the  exception  of  IOPT  and  K,  which  are  always  input 
arguments,  all  of  the  above  input  arguments  are  output 
arguments  when  IOPT  1 . 

6  .  Error  Returns :  None 
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7 .  Calling  Sequence:  (IOPT,  K,  Nil,  IPL,  X,  Y,  Z,  T,  P, 

NLIS'T ,  LI3TEL,  MHO,  NODES,  IP,  DISPEL,  PCOLEL,  LISTDL, 

IG,  NEL,  GPAXEL,  NUMMAT,  MAT,  NUMEPS,  EPS 10,  NUMSO,  SO, 
EXTRA) 

8.  Input  Tapes:  When  IOPT  <.1  the  input  tape  numt  er  is  the 
variable  K  . 

1.  Output  tapes:  When  IOPT  >.2  the  output  tape  number  is  the 
variable  K  . 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Cl4.^  Bytes. 

12.  Subroutine  User:  ELEM,  ELPLUG 

13.  Subroutines  Required:  None 

14 .  Remarks:  None 
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1.  Subroutine  Name:  LOGFLO 

2.  Purpose:  Set  logical  execution  controls  for  USER04 
module 


3.  Equations  and  Procedures:  APHASE,  BPHASE  and  ERROR  are 
initially  set  to  .FALSE.  All  positions  in  MASTER  are  set 
to  zero.  If  any  of  the  first  five  output  matrix  positions 
are  non-blank  then  APHASE  is  set  to  .TRUE.  If  any  of  the 
last  seven  output  matrix  positions  is  non-blank  then  BPHASE 
is  set  to  .TRUE.  MASTER  is  then  filled  by  packing  in  the 
output  matrix  position  number  the  requires  that  input 
section.  At  present  there  are  six  possible  required  input 
sections  indicated  in  MASTER: 

MASTER  (1)  -  System  control  input  indicator 

MASTER  (2)  -  Grid  point  coordinates  input 

indicator 

-  Boundary  condition  input  indicator 

-  Element  definition  input  indicator 

-  Grid  point  loads  input  indicator 

-  Material  library  input  indicator 

h .  Input  Arguments: 


MASTER  (3) 
MASTER  [k\ 
MASTER  (5) 
MASTER  (6) 


NUMOT 
NAMOUT 
NUMIN 
NAM  IN 
APHASE 

BPHASE 

NUMAST 

MASTER 


:  Number  of  output  matrices 
:  Array  containing  output  matrix  names 
:  Number  of  input  matrices 
:  Array  containing  input  matrix  names 
:  Logical  variable  indicating  necessity  to 
execute  subroutine  US04A 
:  Logical  variable  indicating  necessity  to 
execute  subroutine  USO^B 
:  Length  of  MASTER 

:  Array  indicating  required  input  sections 


3.  Output  Arguments: 

ERROR  :  Logical  variable  Indicating  error  condition 

6.  Error  Returns:  If  output  matrix  position  eleven  is  non¬ 
blank  and  input  matrix  position  four  is  blank,  then  ERROR 
is  set  to  .TRUE. 


7.  Calling  Sequence: 

(NUMOT,  NAMOUT,  NUMIN,  NAMIN,  APHASE,  BPHASE,  NUMAST, 
MASTER,  ERROR) 

8.  Input  Tapes:  None 
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9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  786^  Bytes. 

12.  Subroutine  User:  US04 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  USO^iA 


2.  Purpose:  Control  input  phase  operations  of  structural 
system  (USER04  module) 

3.  Equations  and  Procedures:  Input,  output  and  scratch  units 
supplied  by  the  Format  Monitor  are  assigned  to  their 
respective  functions.  Subroutine  CONTRL  is  called  to  copy 
the  entire  structural  data  input  onto  a  scratch  tape,  extract¬ 
ing  structural  system  information  in  the  process.  From  this 
point,  subroutine  INPUT  controls  the  selection  of  all  other 
subroutines  which  process  input  (see  INPUT).  The  function 

of  US04A  is  to  partition  the  blank  common  work  storage  area 
and  select  the  proper  subroutine  for  the  following  opera¬ 
tions:  If  material  library  requests  are  present  then  sub¬ 
routine  FMAT  is  calleds  if  report  form  input  processing  is 
required  then  subroutine  REFORM  is  called,  if  generation  of 
the  loads  matrix  is  not  suppressed  then  subroutine  FLOADS  is 
called  and  f ino Lly  if  tne  boundary  condition  transformation 
matrix  is  not  suppressed  then  FTR  is  called. 

4 .  Input  Arguments : 

NUMOT:  Number  of  output  matrices  (12) 

NAMOUT:  Array  containing  output  matrix  names 

IOSPECU  Unit  specifications  for  output  matrices 
NUMIN:  Number  of  input  matrices  (4) 

NAMING  Array  containing  input  matrix  names 
INSPEC:  Unit  specifications  for  input  matrices 

NUMSR:  Number  of  -available  scratch  units 

ISSPEC:  Scratch  unit  specifications 

NUMSC:  Number  of  scalars  (0) 

SCALAR:  Array  containing  scalars 

NWGRKR:  Number  of  available  work  storages  in  blank  common 

area  (WORK) 

WORK:  VJork  storage  area 

IPRINT:  System  print,  control 

5.  Output  Arguments: 

ERROR:  Errjr  condition  .indicator 

KNMD:  Array  containing  structural  system  control 

information 

KNMD  (3.)  -  NSYS  -  Total  number  of  degrees  of  freedom  in 

application 

KNMD  (2)  -  NL  -  Number  of  load  conditions 

KNMD  (3)  -  NMDB  -  Number  of  degrees  of  freedom  after 

application  of  boundary  conditions 
KNMD  (4)  -  NNORD-  Summation  of  element  degrees  of  freedom 

KNMD  (5)  -  NELEM-  Number  of  elements 

KNMD  (6)  -  NNRSEL- Summation  of  element  stress  orders 

KNMD  (7)  -  NTD  -  Number  of  degrees  of  freedom  per  point 

KNMD  (8)  -  NRSELM-Maximum  element  stress  order 
KNMP  (9)  -  N0RDM-  Maximum  element  degrees  of  freedom 
KNMD(10)  -  NOINRM-Maximum  number  of  storages  required 

for  an  element  stiffness  matrix 
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Error  Returns:  If  at  any  time  the  number  of  required  work 
storages  exceeds  NWORKR  or  a  generated  matrix  will  have  a 
dimension  greater  than  KONST  (matrix  size  limitation),  the 
appropriate  message  will  be  written,  ERROR  set  to  .TRUE, 
and  control  returned  to  the  calling  program. 


Calling  Sequence: 

CALL  US04A  (NUMOT,  NAMOUT,  IOSPEC,  NUMIN,  NAMIN,  INSPEC, 
NUMSR,  ISSPEC,  NUMSC,  SCALAR,  ERROR,  N\  ORKR,  ‘WORK,  IPRINT, 
KNMD) 


Input  Tapes: 


ITAPE1 

-  INSPEC  (1,1) 

ITAPE2 

ITAPE3 

-  INSPEC  (1,2) 

-  INSPEC  (1,3) 

ITAPE4 

-  INSPEC  (1,4) 

Output 

Tapes : 

JTAPE1 

-  IOSPEC 

(i.i) 

JTAPE2 

-  IOSPEC 

(1.2) 

JTAPE3 

-  IOSPEC 

(1.3) 

JTAPE4 

-  IOSPEC 

(1,4) 

JTAPE5 

-  IOSPEC 

(1,5) 

JTAPE6 

-  IOSPEC 

(1,6) 

JTAPE7 

-  IOSPEC 

(1,7) 

•jtapeB 

-  IOSPEC 

(1,8) 

JTAPE9 

-  IOSPEC 

(1,9) 

JTAP10 

-  IOSPEC 

(1,10) 

JTAP11 

-  IOSPEC 

(1,11) 

J  TAPI  2 

-  IOSPEC 

(1,12) 

Unit  containing  input  structure 
data  deck 

Unit  containing  interpreted  input 
Unit  containing  existing  material 
library 

Unit  containing  input  displacement 


Unit  which  will  contain  copy  of 
input  structure  data  deck 

Unit  which  will  contain  revised 
or  new  material  library 

Unit  which  will  contain  inter¬ 
preted  input 

Unit  which  will  contain  grid 
point  loads  matrix 

Unit  which  will  contain  boundary 
condition  application  transforma¬ 
tion  matrix 

Unit  which  will  contain  assembly 
transformation  matrix 

Unit  which  will  contain  element 
stiffness  matrices 

Unit  which  will  contain  element 
load  matrices 

Unit  which  will  contain  element 
stress  matrices 

Unit  which  will  contain  element 
thermal  stress  matrices 

Unit  which  will  contain  element 
incremental  stiffness  matrices 

Unit  which  will  contain  element 
mass  matrices 


10.  Scratch  Tapes: 


NTAPE1  - 

ISSPEC 

(1,1)  - 

External  storage  area  for  report 
form  input  preprocessor  and  later 
will  contain  structural  control 
information 

N TAPES  - 

ISSPEC 

(1,2)  - 

Contain  temporary  copy  of  trans¬ 
lated  input  data  deck  and  later 
contain  generated  element  matrices 
in  compact  form 

NTAPE3  - 

ISSPEC 

(1,3) 

-  Contain  temporary  copy  of  actual 
input  deck  and  later  contain 
Interpreted  element  input  data 

NTAPE4  - 

ISSPEC 

(1,M 

-  External  storage  area  for  report 
form  input  preprocessor  and  later 
contain  input  load  conditions 

Storage  Required: 

Total 

storage  required  is  lCCA^  Bytes. 

Subroutine 

User: 

US04 

13.  Subroutines  Required: 

CONTRL 

INPUT 

FMAT 

REFORM 

NTEST 

FLOADS 

FTR 

14.  Remarks:  None 
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1.  Subroutine  Name:  INBECK 

2.  Purpose:  Translate  input  matrix  containing  a  data  deck 
into  a  BCD  input  deck 

3.  Equations  and  Procedures:  The  matrix  xs  located  by 
utilizing  subroutine  EUTL3.  Each  column  of  the  matrix 
contains  one  input  card  divided  into  eighty  rows.  Each 
column  is  read  in  binary  from  the  unit  specified  in 
INSFEC(l)  and  written  on  N0UT  by  an  80A!  format.  The 
number  of  colui.ins,  as  contained  in  the  matrix  header,  is 
actually  the  number  of  cards  in  the  data  deck. 

4 .  Input  Arguments: 

NAMIN  :  Array  containing  input  matrix  name 
INSPEC  :  Array  containing  unit  specification  for 
input  matrix 

NOIJT  :  Logical  unit  reserved  for  output  data  deck 
CARD  :  Work  storage 

5.  Output  Arguments: 

IER  :  Logical  variable  indicating  error  condition 

6.  Error  Returns:  For  each  column  of  the  input  matrix,  the 
compression  code  must  be  zero  and  the  number  of  words  must 
be  eighty.  If  either  condition  is  not  satisfied  then  the 
matrix  does  not  qualify  as  an  input  deck  matrix  and  IER 
will  be  set  to  .TRUE.. 

7.  Calling  Sequence: 

(NAMIN,  INSPEC,  NOUT,  CARD,  IER) 

8.  Input  Tapes: 

INSPEC(l)  :  unit  containing  input  data  deck  matrix 

9.  Output  Tapes: 

NOUT  :  unit  which  will  contain  BCD  data  deck 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User:  US0*1A 

13*  Subroutines  Required:  EUTL3 
1*1.  Remarks:  None 
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1 .  Subroutine  Name :  CONTRL 

2.  Purpose:  Generate  BCD  tape  from  system  input  tape  data 
and  read  constants  needed  by  US04  for  dynamic  storage 
and  matrix  sizes  . 

3.  Procedure:  The  input  data  is  read  in  BCD  format  of  12 
words/card.  A  scanning  of  the  data  is  made  for  certain 
card  types  . 

a.  REPORT  card  -  defines  NBCD  to  be  NTAPE3 

b .  SYSTEM  card  -  defines  NBCD  to  be  NTAPE2 

c  .  CHECK  card  -  end  of  file  of  NBCD 

d  .  END  card  -  end  of  file  placed  on  NBCD 

e.  SYSTEM  card  -  NREF,  NREFP,  NTD,  NL,  NELEM 

are  read  to  allocate  storage 

4.  Input  Arguments:  NTAPE2  -  tape  stoiage  number  for  defining 

IIBCD 

NTAPE3  -  tape  storage  number  for  defining 
NBCD 

NPIT  -  system  input  tape  number 

5  .  Output  Arguments : 

NBCD  :  tape  unit  number  on  which  data  is  stored 

NREF  :  number  of  reference  points  on  system 

NREFP  :  number  of  reference  points  in  grid  point  table 

NTD  :  number  of  degrees  of  freedom  per  point 

NL  :  number  of  grid  point  load  conditions 

NELEM  :  number  of  elements 


6. 

Error  Returns: 

None 

7. 

Calling  Sequence:  CALL  CONTRL  (NREF,  NREFP,  NTD,  NL,  NELEM, 

NTAPE2 ,  NPIT,  NBCD,  NT APE 3) 

8. 

Input  Tapes: 

NPIT  -  Input  data  tape 

9. 

Output  Tapes: 

NBCD  -  Output  BCD  tape 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required:  Total  Storage  required  is  7DA1^  Bytes. 

12. 

Subroutine  User 

:  US04A 

13. 

Subroutines  Required:  None 

14. 

Remarks :  None 
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1.  Subroutine  Name:  COPYDK 


2.  Purpose:  Output  a  data  deck  in  matrix  form 

3.  Equations  and  Procedures:  A  matrix  header  is  written 
in  which  the  number  of  rows  is  set  to  eighty  and  the 
number  of  columns  is  set  equal  to  the  number  of  cards  in 
the  data  deck.  Each  card  of  the  data  deck- is  read  from 
NINPUT  in  80A1  format  and  then  written  on  the  unit 
specified  in  IOSPEC(l)  in  a  binary  matrix  column  record 
containing  eighty  words.  Tne  process  continues  until  an 
END,  CHECK  or  $END  card  is  encountered.  Finally  the 
matrix  trailer  is  written  and  control  is  returned  to  the 
calling  program. 

4.  Incut  Arguments: 

NAMOUT  :  Array  containing  output  matrix  name 
IOSPEC  :  Array  containing  unit  specifications  for 
the  output  matrix 
CARD  :  Work  storage 

NINPUT  :  Unit  containing  data  deck 

JMAX  :  Number  of  cards  in  data  deck 

3.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(NAMOUT,  IOSPEC,  CARD,  NINPUT,  JMAX) 

8.  Input  Tapes: 

NINPUT  :  unit  containing  input  data  deck 

9 .  Output  Tape  s : 

IOSPEC(l);  unit  which  will  contain  output  data  deck  matrix 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  404.^  Bytes. 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required: 

EUTL5 

eutls 

14.  Remarks:  None  • 


186 


1 . 


Subroutine  Name :  INPUT 


2.  Purpose:  Process  directly  or  control  processing  of  all 
structural  input  data. 

3.  Equations  and  Procedures:  The  input  variable  IN  designates 
the  Fortran  logical  unit  number  containing  a  direct  label 
card  input  deck.  If  the  input  deck  was  actually  direct  it 
was  copied  onto  IN  by  subroutine  CONTRL.  If  report  form 
input  was  used  then  the  report  form  input  preprocessor 
placed  the  generated  direct  label  card  input  deck  on  IN. 

The  logic  in  INPUT  is  to  read  a  label  card  and  branch  to 
the  appropriate  section  to  process  the  indicated  data. 

The  available  label  sections  and  the  action  taken  upon 
encountering  each  is  indicated  in  the  following  list. 


Input  Section 
Label 

Action  Taken 

TITLE 

Title  cards  are  read  and  printed  on  system 
output  unit  in  INPUT 

PRINT 

Not  used,  the  data  card  is  flushed  through 

NREF 

Processed  directly  in  INPUT,  data  eventually 
stored  on  scratch  tape  (NTAPE1) 

GRID 

Processed  directly  in  INPUT,  data  eventually 
stored  on  scratch  tape  (NTAPE3) 

BOUND 

Processed  by  direct  call  to  subroutine  BOUND, 
data  stored  on  scratch  tapes  ( NTAPE1  and 

N TAPE 3) 

EL  EM 

processed  by  direct  call  to  subroutine  ELEM, 
data  stored  or  scratch  tape  (NTAPE3) 

LOADS 

Processed  by  direct  call  to  subroutine  FGRLDS 
data  stored  on  scratch  tape  (NTAFE4) 

END 

Processed  directly  in  INPUT,  terminates  input 
processing 

TRANS 

Processed  directly  in  INPUT,  data  eventually 
stored  on  scratch  tape  (NTAPE3) 

GRAXES 

Processed  by  direct  call  to  subroutine  FRED, 
data  eventually  stored  on  scratch  tape  (NTAPE3) 

MATER 

Processed  by  setting  input/output  variable 

I TRACE  equal  to  number  of  requests  and  return¬ 
ing  to  US04A  where  ITRACE  will  be  tested  caus¬ 
ing  subroutine  FMAT  to  be  called;  after  the 
MATER  section  is  processed  US04A  will  again 
call  INPUT 
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TZERC:  Processed  directly  in  INPUT,  eventually  stored 

on  scratch  tape  (NTAPE3) 

CHECK:  Processed  directly  in  INPUT,  terminates  input 

processing  for  a  case  but  does  not  execute 
data 

REPORT:  Processed  by  setting  input/output  variable 

IN  to  the  value  of  NTAPE2  and  returning  to 
US04A  where  IN  will  be  tested  causing  sub¬ 
routine  REFORM  to  be  called;  after  report 
form  input  processing  is  completed  US04A 
will  again  call  INPUT 

SYSTEM:  Processed  directly  in  INPUT 

4 .  Input  Argument  s : 


NTAPE1 : 
NTAPE2* 
NTAPE3: 
NTAPE4: 
ITAPE1 : 
JTAPE1 : 
NREFP1 : 
NSYS: 

IN: 

IPRINT: 
NPIT1 : 
ITRACE: 
NAMIN: 
INSPEC : 
NAMOUT: 
IOSPEC: 
NRF: 


X,Y,Z: 

T: 

p: 

TGRA: 

IZR: 

LIST: 

DISPL : 

LNOD: 

NZEL: 

PCOL: 


Scratch  unit  number 
Scratch  unit  number 
Scratch  unit  number 
Scratch  unit  number 

Existing  material  library  unit  number 
Revised  or  new  material  library  unit  number 
Not  used 

Total  degrees  of  freedom  in  application 
(adjustable  dimension) 

Data  deck  unit  number 
System  print  control 

Scratch  input  control  for  report  form  input 
Material  library  residence  indicator 
Existing  material  library  matrix  name 
Existing  material  library  unit  number 
Revised  or  new  material  library  name 
Revised  or  new  material  library  unit  number 
Number  of  total  reference  points  in  applica¬ 
tion  (must  be  equal  to  highest  point  number) 
Storage  allocated  for  coordinate  data 
Storage  allocated  for  grid  point  temperatures 
Storage  allocated  for  grid  point  pressures 
Storage  allocated  for  grid  point  axes  trans¬ 
formation  matrices 
Not  used 

Storage  allocated  for  boundary  conditions 
Storage  allocated  for  input  displacements 
Not  used 
Not  used 

Storage  allocated  for  grid  point  loads 
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5 .  Output  Argument  s : 

ICALC:  Execution  indicator 

if  END  card  read,  ICALC  is  set  to  1  and  US04A 
will  relinquish  control  to  US04B  for 
matrix  generation 

if  CHECK  card  read,  ICALC  is  set  to  zero  and 
subroutine  US04A  will  set  controls  to 
return  to  the  Format  Monitor  (execution 
of  data  is  suppressed) 

ITRACE:  Material  request  indicator 

if  ITRACE  is  not  equal  to  zero  upon  exit  from 
INPUT  then  US04A  will  call  FMAT 

IN:  Report  form  input  preprocessor  indicator 

if  IN  is  equal  to  NTAPE2  upon  exit  from  INPUT 
then  US04A  will  call  REFORM 

6.  Error  Returns:  If  any  errors  are  detected  then  INPUT  will 

set  ERROR  to  .TRUE,  and  return. 


7.  Calling  Sequence: 

CALL  INPUT  (X,  Y,  Z,  T,  P,  TGRA,  IZR,  LIST,  DISPL,  LNOD, 
NZEL,  PCOL,  ITRACE,  -ICALC,  NTAPE1 ,  NTAPE2,  NTAPE3,  NTAPE4 , 
ITAPE1,  JTAPE1 ,  NREFP1 ,  NSYS,  IN,  IPRINT,  NMD,  NPIT1,  ERROR, 
NAMIN,  INSPEC,  NAMOUT,  IOSPEC,  NRF) 

8.  Input  Tape: 

ITAPE1  -  Contains  existing  material  library 
JTAPE1  -  Contains  revised  or  new  material  library 


9.  Output  Tapes:  None 

10.  Scratch  Tapes: 


NTAPE1 

NTAPE2 

NTAPE3 

NTAPE4 


Temporary  storage  for  structure  control  informa¬ 
tion  including  system  orders,  boundary  conditions 
and  system  print  operations 

Scratch  unit  used  when  rewriting  NTAPE3  for 
grid  point  axes  data  storage 

Storage  for  interpreted  element  input 

Storage  for  input  grid  point  load  conditions 
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11.  S  -.orage  Required:  Total  storage  required  is  3062.^  Bytes. 

12.  Subroutine  User:  US04A 

13-  Subroutines  Required: 

BOUND 

ELEM 

FGRLDS 

FRED 

REC3 

14.  Remarks:  None 
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1. 


Subroutine  Name*.  FRED 


2. 


4. 


5. 

6. 


7. 

6. 

9- 


10. 


11. 

12. 


Purpose:  To  compute  transformation  matrices  when  input 

for  GRAXES  is  encountered  . 


Equations  and  Procedures: 

»« 

V1' 
v,11 


=  [t 


where  ( l)  u,  v,  w,  are  the  displacements  in  the  global 
x,  y,  z  system 


(2)  u»,  v',  w'  are  the  displacements  in  the  new 
x«,  y‘,  z1  system 

( 3)  |Y)  contains  the  direction  cosines 


Input  Arguments: 


X  :X  coordinates  of  plane  defined  by  3  pts. 

Y  :Y  coordinates  of  plane  defined  by  3  pts. 

Z  :Z  coordinates  of  plane  defined  by  3  pis. 

KID  :See  Remarks 

L  :Point  1  of  Plane 

M  : Point  2  of  Plane 

N  : point  3  of  Plane 

Output  Arguments:  TRANSC  -  transformation  matrix  [r] 
Error  Returns: 


(1)  If  points  1  and  2  have  same  coordinates,  no  plane  defined. 

(2)  If  point  3  lies  on  the  line  connecting  points.  1  and  2, 
there  is  no  plane  defined. 

Calling  Sequence: 

CALL  FRED  (X,  Y,  Z,  TRANSC,  KID,  L,  M,  N) 

Input  Tapes:  None 

Output  Tapes:  Hone 

Scratch  Tapes:  None 

Storage  Required:  X(I),  Y(l),  Z(l),  TRANSC  (3,3) 

Subroutine  User:  INPUT 


13.  Subroutines  Required:  None 
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14.  Remarks: 


1.  Since  3  points  define  a  plane,  KID  may  be 

!a)  0  when  the  1st  2  points  define  the  x’  axis 

b\  1  when  the  1st  2  points  define  the  y*  axis 

c)  2  when  the  1st  2  points  define  the  z*  axis 

The  direction  cosines  are  first  computed  for  points  1  and 
2  defining  the  x1  axis.  If  KID  is  ^  0,  then  the  direction 
cosines  are  .'.^arranged  to  give  the  respective  notation 
described  above. 

2.  in  spite  of  error  returns  indicated,  analysis  does 
not  terminate. 
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1.  Subroutine  Name:  BOUND 

2.  Purpose:  Head  and  process  boundary  condition  data  and  input 
displacement  data 

3.  Equations  and  Procedures:  The  boundary  conditions  are  read 
for  each  point  input  and  the  data  is  stored  in  the  array 
LIST  to  be  later  written  on  scratch  tape  NTAPE1  by  sub¬ 
routine  INPUT.  Omitted  points  are  constrained  for  all 
degrees  of  freedom.  Only  ’’.neons trained  degrees  of  freedom 
are  stored  in  LIST,  giving  LIST  a  length  equal  to  the  actual 
degrees  of  freedom  for  which  solution  will  be  obtained 
(NMDB) .  For  each  degree  of  freedom  for  which  a  solution 

is  desired,  its  appropriate  total  system  degree  of  freedom 
location,  which  is  rJTD*(IN-l)+L,  where  NTD  is  the  number  of 
degrees  of  freedom  per  point,  IN  is  the  point  number  and  I, 
is  the  subject  degree  of  freedom  for  that  point  number,  is 
placed  in  the  next  available  position  in  LIST.  The  same 
procedure  is  followed  for  input  displacements,  which  are 
stored  in  DISPL. 


4«  Input  Arguments: 


IVEC 

NDIR, NDEG  - 

NREF 

NREF4 

IN 

NSYS 


Not  used 

Product  equals  NTD,  number  of  degrees  of 
freedom  per  point 

Total  number  of  points  referenced  in  application 
Number  of  points  for  which  boundary  conditions 
have  been  input 

Input  unit  containing  boundary  condition  data 
Total  number  of  degrees  of  freedom  in  application 


5.  Output  Arguments: 


NMDB 

NMDB2 

LIST 

DISPL 


Number  of  degrees  of  freedom  for  which  solutions 
are  desired 

Number  of  degrees  of  freedom  for  which  dis¬ 
placements  have  been  input 

Array  containing  degree  of  freedom  numbers  for 
which  solutions  are  to  be  obtained  and  dis¬ 
placements  have  been  input 
Array  containing  input  displacements 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

CALL  BOUND  (IVEC,  NDIR,  NDEG,  NREF,  NMDB,  NMDB2,  LIST,  DISPL, 
NREF4,  IN,  NSYS) 

8.  Input  Tape: 

IN  -  Unit  containing  boundary  condition  and  input  displacement 
data 
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9.  Output  Tapes:  None 
.10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  7FA^g  Bytes. 

12.  Subroutine  User:  INPUT 

13.  Subroutines  Required:  None 
V\ .  Remarks:  None 


Subroutine  Name:  ELEM 


2.  Purpose:  Process  element  input  data  (input  section  ELEM) 

3.  Equations  and  Procedures;  Processing  of  element  input 
data  begins  by  reading  the  element  definition  input  for  an 
element  and  checking  the  values  for  errors  and.  inconsisten¬ 
cies.  Error  messages  for  subroutine  ELEM  are  exhibited  in 
Appendix  III.  The  information  read  is  then  printed  on  the 
system  output  unit.  If  no  errors  have  been  detected  then 
the  element  definition  input  is  merged  with  the  required 
system  input.  Specifically,  the  following  operations  are 
performed  for  each  clement  to  assimilate  the  required  in¬ 
formation  for  generation  of  element  matrices: 

the  coordinates,  temperatures  and  pressures  are 
extracted  and  stored  for  each  of  the  element  defini¬ 
tion  node  points; 

the  grid  point  axes  transformation  matrices  are 
initialized  as  identity  matrices  and  stored  for  each 
of  the  element  definition  node  points; 

the  interpolation  temperature  for  material  properties 
is  read  or  calculated  dependent  upon  input,  the 
material  library  is  searched  to  locate  the  requested 
material,  the  interpolation  is  performed  and  the 
results  stored; 

the  element  generation  print  control  is  stored; 

the  boundary  conditions  for  the  degrees  of  freedom 
referenced  by  the  element  defining  node  points  are 
extracted  from  the  system  boundary  condition  list 
and  stored; 

the  input  displacements,  if  any,  for  the  degrees  of 
freedom  referenced  by  the  element  defining  node  points 
are  extracted  from  the  system  input  displacement  list 
and  stored; 

the  pre-strains  and  pre-stresses,  if  input,  are  read 
and  stored; 

the  extra  element  input  data,  if  any,  is  read  and  stored 
and  finally,  subroutine  .REC1- is  called  to  place  all 
of  the  above  interpretated  element  data  on  scratch  tape 
NTAPE3  (see  REC1). 
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4.  Input  Arguments: 


NELEM: 
X,  Y,  Z: 


IVEC: 

LIST: 

NMDB2: 
NDIR,  NDEG: 

IG: 

NMDB: 

DISPL: 

LNCD: 

GPAXEL: 

NUTAPE: 

T2ER0: 
NUMSEQ: 
XEL, YEL, 
ZEL: 

TEL, FEL: 


LISTEL: 


NODES: 

DISPEL: 


PCOLEL: 

MAT: 


EPSIO: 

SO: 

EXTRA: 

IN; 

NREPP: 

ITAPE1: 

JTAPE: 


Number  of  elements 

Arrays  containing  coordinates  of  system  grid 
points 

Arrays  containing  temperatures  and  pressures 
respectively  for  system  grid  points 
Not  used 

Array  containing  boundary  condition  informa¬ 
tion  for  system  grid  points 
Number  of  entries  in  array  LIST 
Product  equals  number  of  degrees  of  freedom 
per  grid  point 

Maximum  number  of  element  defining  points 
possible  for  an  element 

Number  of  system  degrees  of  freedom  for  which 
solutions  are  desired 
Array  containing  inpub  displacements 
Not  used 

Work  storage  reserved  for  grid  point  axes 
transformation  matrices 
Logical  variable  indicating  that  new  or 
revised  material  library  has  been  generated 
Base  temperature  for  application 
Material  library  sequence  number 
Work  storage  reserved  for  extracting  coordinates 
for  element  definition  node  points 
Work  storage  reserved  for  extracting  tempera¬ 
tures  and  pressures  for  element  definition 
node  points 

Work  storage  for  extracting  boundary  condi¬ 
tion  information  for  element  definition  node 
points 

Array  containing  element  definition  node  point 
numbers 

Work  storage  reserved  for  extracting  input 
displacements  for  element  definition  node 
points 
Not  used 

Work  storage  reserved  for  interpolated  material 
properties,  element  print  control,  mass  density 
and  TZERO 

Work  storage  reserved  for  pre-strain  load 
vector 

Work  storage  reserved  for  pre- stress  load 
vector 

Work  storage  area  reserved  for  extra  element 
input 

Element  data  input  unit  number 
Number  of  input  system  grid  points 
Existing  material  library  unit  number 
Not  used 
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JTAPEX:  New  or  revised  material  library  unit  number 

NTAPE3:  Scratch  unit  number 

NAMIN:  Name  of  existing  material  library 

INSPEC:  Same  as  ITAPE1 

NAMOUT:  Nam'*  of  new  or  revised  material  library 

IOSPEC:  Same  as  JTAPE1 

5 .  Output  Arguments : 

IFLAG:  Error  indicator 

NNORD Summation  of  element  degrees  of  freedom 
NNRSEL:  Summation  of  element  stress  orders 

NORDM:  Maximum  element  degrees  of  freedom  for  this 

application 

NOINKM:  Maximum  number  of  storages  for  element  stiff¬ 
ness  matrix  for  this  application 

NRSELM:  Maximum  element  stress  order  for  this  application 

6.  Error  Returns:  If  an  error  is  encountered  then  I FLAG  is 
set  to  minus  one  and  control  is  returned  to  the  calling 
program. 

7.  Calling  Sequence: 

CALL  ELEM  (NELEM,  X,  Y,  Z,  T,  P,  IVEC,  LIST,  NMDB2,  NDIR, 
NDEG,  IG,  NMDB,  DISPL,  LNOD,  GPAXEL,  NUTAPE,  TZERO,  IFLAG, 
NUMSEQ,  XEL,  YEL.  ZEL,  TEL,  PEL,  LISTEL,  NODES,  DISPEL, 
PCOLEL,  MAT,  EPSIO,  SO,  EXTRA,  IN,  NREFP,  NNORD,  NNRSEL, 
NORDM,  NOINKM,  NRSELM,  ITAPE1,  JTAPE,  JTAPE1,  NTAPE3, 

NAMIN,  INSPEC,  NAMOUT,  IOSPEC) 

8.  Input  Tape: 

IN  -  Contains  element  input  data 

9.  Output  Tapes: 

NTAPE3  -  Contains  interpreted  element  input 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  4078^  Bytes. 

12.  Subroutine  User:  INPUT 

13.  Subroutines  Required: 

MATCH 

EUTL3 

LAG 

REC1 
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14.  Remarks:  In  calculating  the  interpolated  material  proper¬ 
ties,  if  the  requested  material  and  the  interpolation  tem¬ 
perature  of  the  present  element  being  processed  are  the  same 
as  the  previous  element  then  the  results  calculated  for  the 
previous  element  are  used  and  no  searching  or  interpolation 
is  done;  if  the  requested  material  is  in  core  but  the  inter¬ 
polation  temperature  is  different  then  just  the  searching 
is  eliminated. 


1 .  Subroutine-  Name :  MATCH 


i 

f 

i 

f 


2.  Purpose:  Compare  a  material  number  and  its  interpolation 
temperature  to  the  material  number  end  interpolation  temper¬ 
ature  last  referenced  in  order  to  determine  if  a  search  of 
the  material  library  tape  and/or  interpolation  is  necessary . 

3.  Equations  and  Procedures:  The  material  number,  TAG1,  is 
compared  to  the  material  number  now  residing  in  core,  NSAVE1 . 

If  they  do  not  match,  then  they  are  tested  again  to  see  if 
they  differ  only  by  an  asterisk  in  the  first  position .  If 
they  still  do  not  match  then  control  is  returned  to  the  calling 
program  at  the  statement  following  the  CALL  MATCH  statement . 

If  a  match  was  obtained  while  testing  for  an  asterisk  then 
STAR  is  set  to  TRUE  .  Once  a  match  has  been  obtained  for  the 
material  number,  the  following  procedure  is  followed: 

If  IELEM  equals  one  then  control  is  returned  to  the 
statement  number  replacing  the  first  asterisk  since 
interpolation  must  be  done  for  the  first  element . 

If  IELEM  is  not  one  then  a  check  is  made  to  see  if 
a  search  of  the  material  library  was  in  progress  to 
find  this  material  number  .  If  this  is  the  case  then 
control  is  returned  to  the  calling  program  at  the 
statement  number  replacing  the  first  asterisk  since 
this  material  table  has  just  been  place  in  core 
and  interpolation  will  be  necessary .  If  a  search 
was  not  in  px’ogress  then  TEMP  is  compared  to  SAVTEM. 

If  they  are  equal  then  interpolation  of  the  material 
table  has  already  been  calculated  and  control  is 
returned  to  tne  calling  program  at  the  statement 
number  replacing  the  second  asterisk.  If  TEMP 
does  not  equal  SAVTEM  then  control  returns  through 
the  first  asterisk  in  order  to  perform  the  inter¬ 
polation  . 

4  .  Input  Arguments : 


TAG1 

NSAVE1 

TEMP 

SAVTEM 

NDIPF 

IELEM 

SEARCH 


Material  number  desired 

Material  number  now  residing  in  core 

Interpolation  temperature  desired 

Last  interpolation  temperature  processed 

Constant  used  to  determine  if  asterisk  is 

present  in  material  number 

Element  number 

Logical  variable  indicating  if  a  search  of  the 
material  library  is  in  progress 


:  Non-standard  returns  to  calling  program 
(See  7.  Calling  Sequence) 


TTr 


5  .  Output  Arguments : 

STAR  :  Logical  variable  indicating  presence  of  asterisk 
in  material  number . 

Error  Returns:  None 

7.  Calling  Sequence:  CALL  MATCH  (TAG1,  NSAVE1,  TEMP,  SAVTEM , 

NDIFF,  STAR,  IELEM,  SEARCH,  *,*) 

Where  the  asterisks  are  statement  numbers,  preceded  by  a 
dollar  sign  ($) ,  that  MATCH  will  return  control  to  in  the 
calling  program .  Control  will  pass  to  the  statement  number 
replacing  the  first  asterisk  if  TAG1  matches  NSAVE1  but 
TEMP  does  not  match  SAVTEM  (i  .e  .  the  material  is  the  same 
but  the  interpolation  temperatures  differ)  .  Control  will 
pass  to  the  statement  number  replacing  the  second  asterisk 
if  TAG1  matches  NSAVE1  and  TEMP  matches  SAVTEM  (i  .e  .  the 
material  is  the  same  as  the  last  material  referenced  and 
the  interpolation  temperatures  are  also  the  same)  .  If 
TAG1  does  not  match  NSAVE1  then  control  is  returned  to  the 
calling  program  at  the  statement  following  the  CALL  MATCH 
statement . 

8  .  Input  Tapes :  None 

9 .  Output  Tapes :  None 

10  .  Scratch  Tapes :  None 

11.  Storage  Required:  Total  Storage  required  is  2FE^g  Bytes. 

12.  Subroutine  User:  ELEM 

13-  Subroutines  Required:  None 
l4 .  Remarks :  None 
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1. 


Subroutine  Name: 


LAG 


2. 

3- 

4. 

5. 

6. 

7. 

8. 

9‘ 

10. 

11. 

12. 

13. 

14. 


Purpose:  Linear  interpolation  routine  for  material*  properties 


Equations  and  Procedures: 


ZAPX  = 


+  PC. 


x(i)  -  X  (1-1) 


Input:  P  -  temperature  at  which  material  properties  Vvill 

be  interpolated 

K  -  number  of  pairs  of  coordinates 
X  -  X  coordinate 
Y  -  Y  coordinate 

Output;  ZAPX  -  value  of  the  material  property  being 
interpolated 

Error  Returns:  None 

Calling  Sequence:  CALL  LAG  (P,  ZAPX,  K,  X,  Y) 

Input  Tapes:  None 
Output  Tapes :  None 
Scratch  Tapes :  None 

Storage:  Total  Storage  required  is  2F21g  Bytes. 

Subroutine  User:  ELEM 


Subroutines  Required :  None 

Remarks:  If  there  is  only  one  X-Y  pair,  ZAPX  will  be  set 
equal  to  Y. 


Subroutine  Name: 


FGRLDS 


Purpose:  Read  and  print  grid  point  loads  data 

Equations  and  Procedures:  System  input  is  read  from  NTAPE4 
and  includes  LIST  which  is  an  array  cont-Ining  row  numbers  of 
degrees  of  freedom  which  are  to  be  retained  in  the  reduced 
load  column.  Grid  point  loads  are  read  for  each  input  point 
and  printed.  If  grid  point  axis  transformations  are  present, 
this  transformation  is  applied.  The  assembled  FC0L  is  stored 
on  tape  NTAPE4,  followed  by  the  reduced  PC0L.  This  process 
is  repeated  for  each  load  condition. 

Input  Arguments: 

NL  :Number  of  grid  point  load  conditions 

TGRA  :Grid  point  axes  transformation  matrices 

N0GPA  :Number  of  grid  point  axes  transformations 

LIST  Reduction  array 

IT  :System  input  tape  number 

NTAPE1 : Input  tape  number 

NTAPE4  :Output  tape  number 


Output  Arguments:  PC0L  -  Loads  Column 

Error  Returns:  None 

Calling  Sequence: 

CALL  FGRLDS  (NL,  TGRA,  N0GPA,  LIST,  IT,  PC0L,  NTAPE1, 
NTAPE4,  NSYS) 

Input  Tapes:  NTAPE1'  Record  1  -  not  used 

Record  2  -  NMDB1,  NMDB,  LIST 

Output  Tapes:  NTAPE4:  Record  1  -  Nl,  NMDB1,  NMDB 

Record  2  -  PCOL  (assembled) 

Record  3  “  PCOL  (reduced) 

Repeat  Record  2  and  3  for  each 
load  condition 

Scratch  Tapes:  None 

Storage  Required:  LIST  (NSYS) 

EL0AD  ‘(12) 

PCOL  (NSYS) 

COL  (3) 

ISAVE  (  3) 

TGRA  (3,  3,  NREFP) 
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Subroutine  User 


INPUT 


13.  Subroutines  Required: 

14.  nemarks:  None 


None 


X.  Subroutine  Name:  FMAT 

2.  Purpose: 

fa)  Generate  material  library  tape 

fb)  Update  material,  library  tape 

(c)  Print  material  library  information 

3.  Equations  and  Procedures: 

Subroutine  FMAT  operates  in  three  distinct  phases. 

First,  a  test  is  made  on  NM.  If  NM  is  positive,  then 
it  assumed  that  this  is  an  update  run  and  the  original 
material  library  is  read  into  PR0FER  from  ITAPE1.  Each 
table  in  the  library  is  placed  in  PR0FER  in  a  block  of 
length  NT0T,  where  NT0T  is  computed  as  the  necessary 
storage  needed.  If  NM  is  zero,  it  is  considered  an  error 
condition  and  a  message  is  printed  and  control  Is  returned 
to  the  calling  program.  If  NM  is  negative,  then  it  is 
assumed  that  this  is  a  generation  of  a  new  material  library 
tape  and  the  section  which  reads  the  original  material 
library  tape  is  skipped. 

The  second  phase  consists  of  processing  the  requests.  The 
requests  are  controlled  by  an  input  code  read  into  location 
D.  The  legal  input  codes  are: 

(1)  I  :  add  or  revise  isotropic  material 

(2)  0  ;  add  or  revise  orthotropic  material  table 

(3)  PI  :  add  or  revise  plastic  isotropic  material  table 

(4)  P0  :  add  or  revise  plastic  orthotropic  material  table 

(5)  P  :  add  plastic  section  to  existing  material  table 

(6)  0UT  :  delete  material  table  with  correct  lock  code 

(7)  ALL  :  print  entire  material  library 

(8)  0EE  :  print  material  table 

(9)  0UM  :  print  summary  of  material  library 

(10)  /*/  :  print  lock  code  for  material  table 

(11)  ZAP  :  delete  material  table  regardless  of  lock  code 
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If  NM  was  negative,  then  the  only  allowable  codes  are 
1,0,  PI  and  P0  and  the  requests  are  processed  and  pla’eed 
into  the  array  PR0PER ■ starting  from  the  beginning  and 
ending  at  NT0L.  If  NM  was  positive,  then  the  material 
number  is  checked  against  the  materials  in  PROPER  to  see 
if  it  already  existed  in  the  original  library.  If  no 
match  is  obtained,  then  the  material  is  added  at  the  next 
open  block  in  PR0PER  and  NT0L  is  updated  accordingly. 

If  a  match  occurred,  then  the  revised  table  will  be  placed 
in  same  position  as  the  original  table.  If  the  locations 
for  the  material  is  greater  or  lesser  than  before,  the 
remaining  contents  of  PROPER,  i.e.  those  tables  after  the 
one  in  question,  are  shifted  down  or  up  respectively. 

If  the  request  is  of  the  type  that  will  alter  or  delete 
the  original  table,  then  the  loc\  code  (TAG2)  must  match 
the  lock  code  of  the  original  table,  otherwise  an  error 
condition  is  encountered  and  control  returns  to  the 
calling  program.  Once  it  has  been  decided  where  the 
table  is  to  be  placed,  then  the  table  is  read  into  PR0PER 
by  material  temperature  points  and  plastic  temperature 
points.  The  material  properties  are  as  follows: 

E  -  Young's  Modulus 
>>  -  Poisson's  Ratio 
«*  -  Coefficients  of  Thermal  Expansion 
G  -  Rigidity  Modulus 

For  an  input  code  of  I  or  PI  only  E,  'O  ,  and  c*  are  read 
and  G  is  computed  from  E/2(l+"&  )  for  each  material  tempera¬ 
ture  point.  For  an  input  code  of  0  or  P0,  then  Ex,  Ev, 

Ez,  *  xy,  *0  yz,  *  zx,  «*  x,  y,  «*  z,  Gxy,  Gy„  and  Gz/ are 
read  for  each  material  temperature  point,  if  the  input 
code  contains  a  P,  then  for  each  plastic  temperature  point 
the  following  data  is  read: 

N  -  exponent  of  stress-strain  function  assumption 
K  -  scalar  of  stress- strain  function  assumption 
X  -  nondimensionalizing  factor  for 

Y  _  it  ti 

2  _  "  H 

R  -  "  " 

S  -  "  " 

fp  _  It  II 


{ 

I 
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The  procedure  for  input  codes  6-11  is  as  follows: 

0UT  -  If  the  material  is  not  located  in  PR0PER,  then  a 
message  is  printed  to  this  effect  and  the  request 
is  ignored.  If  the  material  is  located  and  the 
lock  codes  do  not  match,  then  a  message  is  printed 
and  the  request  ignored.  If  the  material  is 
located  and  the  lock  codes  match,  then  the  deletion 
occurs  when  the  remaining  contents  of  PR0PER  are 
merely  shifted  up  over  the  deleted  material. 

ALL  -  A  flag  (WRTALL)  is  set  for  phase  three  and  control 
passes  to  the  next  request. 

SEE  -  If  the  material  is  not  located,  a  message  is 

printed  and  the  request  ignored.  If  the  material 
is  located,  the  table  is  printed  and  control 
passes  to  the  next  request. 

SUM  -  All  the  tables  in  PR0Pr'R  are  scanned  and  the 

following  information  is  printed  for  each  table: 

Material  Number  (TAG1) 

Material  Identification  (MIDENT) 

Analysis  Capability  (derived  from  1,0,  PI,P0) 
Number  of  Material  Temperature  Points  (NP1) 
Number  of  Plastic  Temperature  Points  (NP2) 
Temperature  Range  of  Material  Table 
Temperature  Range  of  Plastic  Table 

/*/  -  If  the  material  is  located,  the  lock  code  is 
printed.  If  the  material  is  not  located,  the 
request  is  ignored. 

ZAP  -  If  the  material  is  not  located,  the  request  is 
ignored.  If  the  material  is  located,  it  is 
deleted  regardless  of  lock  code. 

Phase  two  ends  when  all  of  the  requests  have  been  processed. 

Phase  three  consists  of  writing  the  new  or  updated  material 
library  on  JTAPE1  and  printing  the  entire  tape  if  it  has 
been  requested.  Writing  of  the  tape  and  a  print  of  the 
entire  material  library,  if  requested,  are  done  in  a  parallel 
processing  manner;  i.e„,  a  table  is  written  on  tape  and  then 
printed,  if  requested.  Tither  process  may  be  done  separately 
or  together  depending  upon  the'  requests  received.  Finally, 
if  a  tape  has  been  written,  a  summary  is  printed. 
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*1 .  Input  Arguments: 


NM  :  Number  of  Requests 

MATT A P  :  Code  Controlling  Selection  of  Input  and  Outj  ut 

Tapes 

IN  :  Input  Tape  Unit 

TABMAT  :  Material  Properties  Work  Storage  Area 

TABPLA  :  Plastic  Properties  Work  Storage  Area 

FR0PER  :  Material  Library  Work  Storage  Area 

NW0RK  :  Number  of  Available  Work  Storages 

ITAPE1  :  Input  Material  Library  Tape  Unit 

JTAPE1  :  Output  Material  Library  Tape  Unit 

NAM0UT  :  Array  Containing  Output  Material  Library  Name 

NAMIN  :  Array  Containing  Input  Material  Library  Name 

5.  Output  Arguments: 

MATTAP  :  Code  signifying  error  condition  has  been 
encountered,  if  MATTAP  >  0,  then  no  error 
has  been  encountered,  if  MATTAP  <  0,  then  error 
condition  exists. 

6.  Error  Returns: 

Message  Action  Taken 

RETURN 

RETURN 

RETURN 
RETURN 
RETURN 
RETURN 

IGNORE  REQUEST 
RETURN 

RETURN 

IGNORE  REQUEST 

IGNORE  REQUEST 
RETURN 

IGNORE  REQUEST 
RETURN 
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(1)  Value  of  Young's  Modulus  (E)  <  1.0 

(2)  Value  of  Poisson's  Ratio  <  -1.0  or 

>  1.0 

(3)  Value  of  thermal  expansion  coefficient 

(oc  )  <-1.0  or>  1.0 

f M  Value  of  Rigidity  Modulus  (G)  <  1.0 

(5)  Value  of  mass  density  is  negative 

(6)  Lock  codes  do  not  match  for  revision 
(?)  Lock  codes  do  not  match  for  deletion 

(8)  Capacity  of  material  library  exceeded 

(9)  Number  of  material  or  plastic- 

temperature  points >  9 

(10)  Attempt  to  delete  nonexistent  material 

(11)  Attempt  to  input  plastic  data  only  for 

nonexistent  material 

il2)  Unrecognizable  input  code 
13)  Request  to  print  nonexistent  material 
l4)  Number  of  requests  is  zero 


7.  Calling  Sequence: 

Call  FMAT  (NM,  MATTAP,  IN,  TABMAT,  TABPLA,  PR0PER,  NW0RK, 
ITAPE1,  JTAPE1,  NAM0UT,  NAMIN) 

8 .  Input  Tape  s 

9 .  Output  Tape  s 

Input  and  output  tapes  are  identical  with  respect  to 
information  contained  and  record  format.  Records  are 
as  follows  from  the  matrix  header  to  the  matrix  trailer: 


Format  Mstrix  Header  Record 


Record  r-umber  1  -  IC0L,  K0DE,  IW0RDS,  NUMTAB,  NUMSEQ 


Remora  n^bers  2  to  NUMTAB+1  -  IC0L,  K0DE,  IW0RDS,  NT0T, 

D,  TAG1,  TAG2,  NP1,  NP2, 
DENSTY,  MIDENT,  ((TABMAT 
(I,J),  J=l,  NMAT), 

1=1,  NP1),  ( (TABPLA(I, J), 
J=l,  NPLA),  1=1, NP2) 


Format  Matrix  Trailer  Record 


where  ICOL 
K0DE 
IW0RDS 
NUMTAB 
NUMSEQ 
NT0T 

D 

TAG1 
TAG  2 
NP1 
NP2 

DENSTY 

MIDENT 

TABMAT 

NMAT 

TABPLA 

NPLA 


:  Dummy  Variable 
:  Dummy  Variable 

:  Number  of  Words  Remaining  in  Record 
:  Number  of  Material  Tables  in  Library 
:  Sequence  Number  of  Library 
:  Total  Number  of  Words  in  the  Specific 
Table 

:  Input  Code 
:  Material  Number 
:  Lock  Code 

:  Number  of  Material  Temperature  Points 
:  Number  of  Plastic  Temperature  Points 
:  Mass  Density 

:  Material  Identification  (Short 
Description  or  Name) 

:  Material  Properties  Table 
:  Number  of  Material  Properties  per 
Temperature  Point  4-  1 
:  Plastic  Properties  Table 
:  Number  of  Plastic  Properties  per 
Temperature  Point  +  1 


10.  Scratch  Tapes:  None 
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11.  Storage  Required: 


C0M(1O),  MIDENT(4),  G(16),  HEADER (20),  TAG1(6),  NFIX1A(6), 
Total  Storage  required  is  4EB8^g  Bytes.  FL1A(6) 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required:  SHIFT 
1^.  Remarks: 

Whenever  new  or  updated  material  tape  is  written,  all 
changes  and/or  additions  and  a  summary  or  the  output  tape 
are  printed. 
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1.  Subroutine  Name:  SHIFT 


2.  Purpose:  Given  a  one-dimensional  array,  this  routine  can 
relocate  a  block  of  data,  within  the  array. 

3.  Equations  and  Procedures:  The  routine  computes  the  size 
of  the  block  to  be  shifted.  It  checks  the  direction  of 
shift,  and  initializes  the  shift  constants,  finally 
performing  the  shift. 

4.  Input  Arguments: 

PROPER  :  Array  in  which  shifting  is  to  occur 

IFROM  :  Initial  subscript  of  block  to  be  shifted 

ITO  :  Final  subscript  of  block  to  be  shifted 

ISIZE  :  Size  of  shift 

NDIR  :  Direction  of  shift 

5.  Output  Arguments: 

IERROR  :  Error  return 

6.  Error  Returns:  If  the  size  of  the  block  to  be  shifted 
is  computed  to  be  negative  (IFROM  ITO)  IERROR  is  set 
equal  to  1  (one). 

7.  Calling  Sequence: 

SHIFT  (PROPER,  IFROM,  ITO,  ISIZE,  NDIR,  IERROR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  2B61^  Bytes. 

12.  Subroutine  User:  FMAT 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1. 


Subroutine  Name:  REFORM 


2.  Purpose:  Control  generation  of  BCD  input  tape  from  Report 
Form  Input  Sheets 

3.  Equations  &  Procedures:  Storage  is  allocated  for  all  vari¬ 
ables  needed  by  PHASE1  and  PHASE2  combined.  All  valid 
input  section  names  are  stored  by  a  data  statement  ±n  array 
NAMES.  Temporary  tape  storage  for  input  sections  which 
must  be  merged  are  assigned  to  scratch  tapes  NTAPE1  and 
NTAPE2.  Subroutine  PHASE1  is  entered  to  read  and  store  all 
data.  Subroutine  PHASE2  is  entered  to  merge  and  output  on 
INTAPE  the  data  that  was  read  in  PHASE1 .  If  a  dump  has 
been  requested  then  the  contents  of  INTAPE  are  printed  on 
the  system  output  unit.  Control  is  then  returned  to  the 
calling  program. 

4.  Input  Arguments: 


INTAPE: 

NTAPE1 , NTAPE2: 
IN: 

NRFP,  NSS,  NRF: 
COORD: 


Tape  unit  number  on  which  BCD  input  data 
is  to  be  generated 

Scratch  tape  unit  numbers 

Input  tape  unit  number 

Adjustable  dimension  variables 

Storage  area  reserved  for  grid  point 
coordinates 


1: 

P: 

I BOUND: 


Storage  area  reserve  for  grid  point 
temperatures 

Storage  area  reserved  for  grid  point 
pressures 

Storage  area  reserved  for  grid  point 
boundary  condition^ 


5.  Output  Arguments: 

ERROR:  logical  variable  indicating  error  condition. 

6.  Error  Returns: If  an  error  has  occurred  in  PHASE1  or  PHASE2 
then  ERROR  is  set  to  .TRUE.. 


7.  Calling  Sequence: 

CALL  REFORM  (INTAPE,  NTAPE1 ,  NTAPE2 ,  IN,  NRFP,  NSS,  NRF, 
COORD,  T,  P,  I BOUND,  ERROR) 

8.  Inpur  Tapes: 

IN  -  Scratch  tape  containing  card  images  of  data  deck 
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Output  Tapes: 

INTAPE  -  BCD  tepe  containing  sorted  data  generated  for  sub¬ 
routine  INPUT 

Scratch  Tapes: 

NTAPE1  -  Temporary  storage  for  grid  point  axes  input,  initial 
displacement  input  and  element  definition  input 

NTAPE2  -  Temporary  storage  area  for  gric"  point  loads  input,  pro 
scribed  displacement  input  and  special  element  input 

Storage  Required:  Total  storage  required  is  2B881g  Bytes. 

Subroutine  User:  US04A 

Subroutines  Required: 

PHASE1 

PHASE2 


Remarks:  None 


.1 .  Subroutine  Name:  PHASE1 


2.  Purpose:  Read,  sort  and  store  temporarily,  all  report  form 
input  data. 

3.  Equations  &  Procedures:  First,  all  core  storage  areas  are 
initialized  with  either  blanks  or  zeroes.  The  following 
core  storage  areas  are  initialized  with  blanks:  IBOUND, 
COORD,  BM,  LM,  INM,  PRM,  EM  and  ERRMOD.  The  following  core 
storage  areas  are  initialized  with  zeroes:  P,  T,  MEMORY, 

TM  and  PM. 


Reading  cf  input  is  controlled  entirely  by  label  cards  for 
each  input  section.  Correlation  between  label  codes  and 
input  sections  is  as  follows; 


Code 


Input  Section 


TITLE 
COOP.  i 
TEMP 
PRESS 

bout:;.' 

MATEK 

LOADS 

GRAXES 

TRANS 

INITA 

PRDISP 

ELEM 

EXTERN 

INPUT 

PRINT 

CALC 

END 

CHECK 

SYSTEM 


Title  cards 

Grid  point  coordinates 

Grid  point  temperatures 

Grid  point  pressures 

Grid  point  boundary  conditions 

Materia],  library  requests 

Grid  point  external  loads 

Gria  point  axes  (matrices  generated) 

Grid  point  axes  (matrices  input) 

Grid  point  initial  displacements 

Grid  point  prescribed  displacements 

Element  definition  data 

Special  element  data 

Master  input  control 

Print  controls 

Calculation  controls 

End  card 

Check  card 

System  control  information 


After  initialization,  the  data  may  be  read  from  IN.  The 
only  restriction  placed  upon  order  of  input  sections  is  that 
SYSTEM  may  only  be  preceded  by  TITLE,  MATER  and/or  INPUT. 


The  procedure  for  a  typical  input  section  is  as  follows: 

(1)  Subroutine  LATCH  is  called  to  determine  the  identity 
of  the  input  section. 

(2)  Control  is  transferred  to  the  corresponding  section 
of  PHASE1  that  will  read  and  store  the  data.  This 
step  is  accomplished  either  directly  in  PliASEl  itself 
or  by  a  call  to  FORMIN. 
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(3)  Data  storing  for  a  section  terminates  upon  reading  of 
a  section  label  card  which  differs  from  the  section 
being  read. 

Upon  reading  a  CHECK  or  END  card,  PHASE1  returns  control  to 
the  calling  program. 

4 .  Input  Arguments : 

NAMES:  Array  containing  valid  input  section  labels 

INTAPE:  Tape  unit  number  on  which  BCD  input  data  is  to 

be  generated 

LOCATE:  Array  containing  tape  unit  numbers  locating 

temporary  tape  storage  for  input  sections.  For 
each  entry  in  NAMES  there  is  a  corresponding 
entry  in  LOCATE  pointing  to  a  temporary  storage 
area.  If  the  entry  in  LOCATE  is  a  zero  then 
storage  is  in  core.  If  the  entry  is  non-zero 
then  storage  is  on  the  tape  number  indicated. 

NUMCAL:  Number  of  possible  solution  techniques 

NUMNAM:  Number  of  valid  input  section  labels 

I CASE:  Case  number 

NDIR:  Number  of  directions  per  grid  point 

NEND:  Last  word  of  every  input  section  placed  on  tape 

IN:  Input  tape  unit  number 

NRFP:  Adjustable  dimensions  for  COORD,  T  and  P 

NRF:  Adjustable  dimension  for  IBOUND 

DINFO:  Not  used 

5.  Output  Arguments: 

COORD:  Array  containing  grid  point  coordinates 

T:  Array  containing  grid  point  temperatures 

P:  Array  containing  grid  point  pressures 

MEMORY:  Array  containing  indicators  which  record  input 

sections  that  have  been  encountered  during 
processing  of  data 

IBOUND:  Array  containing  grid  point  boundary  conditions 

TM:  Array  containing  grid  point  temperature  modal 

values 

PM:  Array  containing  grid  point  pressure  modal  values 
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BM: 

SM: 

INM: 

PRM: 

EM: 

NLOAD : 

NINITA: 

NPRDIS: 

ICALC: 

NREF: 

NREFP: 

NTD: 

NL: 

NID; 
NPD: 
NAXE  f 
NELEM: 
NM: 

NREF4: 
TZERO : 
NREF4C: 

NREFPC : 
NELEMC : 
NGRAXC: 

NTRANC: 

ERROR: 

DUMPT: 


Array  containing  grid  point  boundary  condition 
modal  values 

Array  containing  grid  point  load  modal  values 
for  each  load  condition 

Grid  point  initial  displacement  modal  values 

Grid  point  prescribed  displacement  modal  values 

Special  element  input  modal  values 

Array  containing  number  of  points  in  each  load 
condition 

Array  containing  numbers  of  points  in  each 
initial  displacement  condition 

Array  containing  number  of  points  in  each 
prescribed  displacement  condition 

Array  containing  solution  procedures  desired 

Number  of  system  referenced  grid  points 

Number  of  input  grid  points 

Number  of  degrees  of  freedom  per  grid  point 

Number  of  load  conditions 

Number  of  initial  displacement  conditions 

Number  of  prescribed  displacement  conditions 

Number  of  grid  point  axes  systems 

Number  of  elements 

Number  of  requests  of  the  material  library  tape 

Number  of  input  boundary  condition  grid  points 

System  reference  temperature 

Number  of  boundary  condition  points  read  by 
PHASE1 

Number  of  grid  points  read  by  PHASE1 

Number  of  elements  read  by  PHASE1 

Number  of  grid  ooint  axes  systems  read  by 
PHASE1 

Number  of  gild  point  axes  transformation  matrices 
read  by  PHASE1 

Error  indicator 

Debug  dump  indicator 
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Error  Returns: 


Message: 

Unexpected  blank  label 
card  encountered. 


Mo  option  has  been  selected 
for  request  number  xxx  of 
material  library. 

More  than  one  option  has  been 
selected  for  request  number 
xxx  of  material  library. 

Maximum  number  of  load  con¬ 
ditions  allowed  is  100. 

This  problem  contains  xxx. 

Load  condition  xxx  sub- lab el 
is  incorrect.  Program  can¬ 
not  distinguish  between  load 
conditions . 

Illegal  modal  card  en¬ 
countered.  Card  v/ill  be 
ignored. 

Due  to  previously  encountered 
error  condition  this  section 
is  being  skipped.  Program 
will  flush  data  deck  until 
next  recognizable  section 
is  encountered. 

Unrecognizable  input 
section . 

Due  to  above  error  message 
this  section  will  be  omitted 
and  check  card  inserted. 

Calling  Sequence: 


Action  Taken: 

Flush  to  next  recognizable 
label  card  and  insert  check 
card. 

Flush  to  next  recognizable 
label  card  and  insert  check 
card . 

Retain  first  selection 
encountered . 

Flush  to  next  recognizable 
label  card  and  insert  check 
card . 

Flush  to  next  recognizable 
label  card  and  insert  check 
card. 

Self-explanatory 


Self-explanatory 


Flush  to  next  recognizable 
label  card  and  insert  check 
card. 

Self-explanatory 


CALL  PHASE1  (COORD,  T,  P,  MEMORY,  I BOUND,  NAMES,  TM,  PM, 
BM,  SM,  INM,  PRM,  EM,  NLOAD,  NINITA,  NPRDIS,  ICALC,  NREF, 
NREFP,  NTD,  NL,  NID,  NPD,  NAXES,  NELEM,  MM,  NREF4,  TZERO, 
INTAPE,  LOCATE,  NUMCAL,  NUMNAM,  •  ICASE,  NDIR,  NEND,  NREF4C, 
NREFPC,  NET.. EMC,  NGRAXC,  NTRANC,  IN,  NRFP,  NRF,  ERROR, 
DUMPT,  DINFO) 

Input  Tapes: 

IN  -  BCD  tape  containing  car'd  images  of  data  deck 


9- 

Output  Tapes: 

NTAPE1 

-  Temporary  storage  for  grid  point  axes  input, 
initial  displacement  input,  and  element 
definition  input 

NTAPE2 

-  Temporary  storage  for  grid  point  loads  input, 
prescribed  displacement  input  and  special 
element  input 

INTAPE 

-  TITLE,  MATER,  PRINT  sections  are 
they  were  present. 

output  if 

10. 

Scratch  Tapes:  None 

n. 

Storage 

Required:  Total  storage  required  is 

Bytes 

12. 

Subroutine  User:  REFORM 

13. 

Subroutines  Required: 

LATCH 

FORMIN 

14. 

Remarks: 

None 
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1. 


Subroutine  Name:  LATCH 


2.  Purpose:  Compare  a  six  character  name  to  the  recognizable 

list  of  input  section  names  for  Report  Form  Input. 

3.  Equations  and  Procedures:  The  six  character  name  LABEL  is 

compared  to  each  of  the  legal  input  section  names  (array 
NAMES).  If  a  match  is  found  then  LEADER  is  set  to  the 
position  number  in  NAMES  which  contained  the  matching  name. 

If  no  match  is  found  then  LEADER  is  set  equal  to  one  plus  the 
number  of  legal  section  names. 

4.  Input  Arguments: 

LABEL  -  name  to  be  matched 

NUMNAM  -  number  of  valid  input  section  names 

NAMES  -  array  containing  valid  input  section  names 

5.  Output  Arguments: 

LEADER  -  position  number  in  NAMES  of  input  section  name  which 
matches  LABEL 

If  no  match  was  found  then  LEADER  is  set  equal  to 
NUMNAM  +1 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  LATCH  (LABEL,  LEADER,  NUMNAM,  NAMES) 

8.  I  iput  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes;  None 

11.  Storage  Required:  Total  Storage  required  is  lBA-^g  Bytes. 

12.  Subroutine  User:  FHASE1 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  FORMIN 


2.  Purpose:  Read  and  store  on  tape  or  in  core  all  table 
form  input  to  Phase  One  of  Report  Form  Input  Preprocessor. 

3.  Equations  and  Procedures:  The  decision  to  store  data  on 
tape  or  in  core  is  determined  by  examining  the  input 
variable  NTAPE.  If  NTAPE  is  less  than  or  equal  to  zero 
then  the  data  is  stored  in  core,  otherwise  the  data  is 
stored  on  the  unit  specified  by  NTAPE.  Any  modal  values 
read  are  always  stored  in  core. 

4.  Input  Arguments: 

LEADER  :  Index  number  referring  to  input  section  being 
processed 

MEMORY  :  Not  used 

NAMES  :  Array  containing  legal  input  section  labels 

NTAPE  :  Storage  indicator,  if*0  then  NTAPE  contains 

unit  number  for  external  storage 
AMODAL  :  Storage  reserved  for  modal  values  read,  if  any 
MODAL  :  Modal  card  label 

NUMBER  :  Number  of  input  values  to  be  read  per  card 
REPEAT  :  Logical  variable  indicating  legality  of  repeat 
option 

FMT1-5  :  Input  formats 

MSG1-3  :  Error  message  formats 

WARN  :  Error  message  warning  flag 

FATAL  :  Error  message  fatal  flag 

NCARD  :  Number  of  input  cards  per  table  entry 

CORE  :  Core  storage  area  if  data  is  to  remain  in  core 

NR,  NC  :  Adjustable  dimensions  of  CORE 

LABSUB  :  Sub-label  for  multiple  condition  input  sections 
IN  :  Unit  number  containing  input  data 

5.  Output  Arguments: 

LABEL  :  Input  section  label  encountered  which  was 

different  from  input  section  label  now  being 
processed 

KGUNT  :  Number  of  input  table  entries  read 

NERROR  :  Error  indicator 

NCOND  :  Condition  number  for  encountered  sub-label 

SCALAR  :  Constant  for  encountered  sub-label 
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6.  Error  Returns:  Error  conditions  are  indicated  in  NERROR 

as  follows : 

If  NERROR  equals  zero,  then  no  error  has  occurred 
If  NERROR  is  less  than  zero,  then  a  sub-label  has  been 
encountered 

If  NERROR  is  greater  than  zero,  then  a  fatal  error  has 
occurred  and  an  appropriate  message  will  be  printed 

7.  Calling  Sequence:  Call  FORMIN 

(LEADER,  MEMORY,  NAMES,  LABEL,  KOUNT,  NTAPE,  AMODAL,  MODAL, 
NUMBER,  REPEAT,  FMT1,  FMT2,  FMT3,  FMT4,  FMT5,  MSG1, 

MSG2,  MSG3,  WARN,  FATAL,  NERROR,  NCARD,  CORE,  NR,  NC, 
LABSUB,  NCOND,  SCALAR,  IN) 

8.  Input  Tape:  IN  contains  input  data 

9.  Output  Tape:.  If  NTAPE  is  greater  than  zero  then  it  will 
contain  the  stored  input,  otherwise  there  is  no  output 
tape. 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  "’otal  storage  required  is  C7J*1g  Bytes. 

12.  Subroutine  User:  PHASE1 

13.  Subroutines  Required:  None 

14 .  Rema  rks  :  None 
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1.  Subroutine  Name:  PHASE2 


2.  Purpose:  Merge,  order  and  output  form  input  data  stored 

by  PHASE1 . 

3.  Equations  and  Procedures:  The  input  sections  stored  by 

PHASE1  are  detected  by  examining  the  array  MEMORY.  The 
exact  procedure  is  to  check  the  MEMORY  array  in  the  order 
required  for  output  and  ii  the  MEMORY  value  for  that  sec¬ 
tion  is  greater  than  zero  then  output  that  section's  stored 
data;  otherwise  continue  to  the  next  section.  The  order 

in  which  the  stored  input  sections  are  output,  if  present. 


and  the  sections  that  they  are  to  be  merged  with  is  as 

follows : 

Input  Section 

Generated  from  Report  Form  Input  Sections 

NREF 

SYSTEM 

TZERO 

SYSTEM 

GRID 

COORD,  TEMP,  PRESS 

BOUNDS 

BOUND,  CALC,  INITA .  PRDISP 

ELEM 

ELEM,  EXTERN 

TRANS 

TRANS 

GRAXES 

GRAXES 

LOADS 

LOADS 

END 

END 

CHECK 

CHECK 

Input  Arguments 

• 

COORD 

:  Array  containing  system  grid  point 
coordinates 

T 

:  Array  containing  grid  point  temperatures 

P 

:  Array  containing  grid  point  pressures 

MEMORY 

:  Array  indicating  report  form  input 
sections  read 

IBOUND 

:  Array  containing  grid  point  boundary  con¬ 
ditions 

NAMES 

:  Array  containing  legal  report  form  input 
section  names 

TM 

:  Array  containing  modal  values  for  grid 
point  temperatures 

PM 

:  Array  containing  modal  values  for  grid 
point  pressures 

BM 

:  Array  containing  modal  values  for  grid 
point  boundary  conditions 

SM 

:  Array  containing  modal  values  for  grid 
point  load  conditions 

INM 

:  Array  containing  modal  values  for  initially 
displaced  grid  points 

PRM 

:  Array  containing  modal  values  for  pre¬ 
scribed  displaced  grid  points 
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EM 

"LOAD 

NINITA 
N PRD IS 

ICALC 

NREF 

NREFP 

NTD 

NL 

NID 

NPD 

NAXES 

NELEM 

NM 

NREF4 

TZERO 

INTAPE 

LOCATE 

NUMCAL 

NUMNAM 

ICASE 

NDIR 

NEND 

NREF4C 

NREFPC 

NELEMC 

NGRAXC 


NTRANC 


IN 

NRFP 

NRF 


5 .  Output 
ERROR 


:  Array  containing  modal  values  for  special 
element  input 

:  Number  of  loaded  grid  points  per  load 
condition 

:  Number  of  initial  displacement  conditions 
:  Number  of  prescribed  displacement  con¬ 
ditions 

:  Array  containing  solution  codes 
:  Number  of  grid  points  in  system 
:  Number  of  input  grid  points 
:  Number  of  degrees  of  freedom  per  grid 
point 

:  Number  of  load  conditions 
:  Number  of  initially  displaced  grid  points 
:  Number  of  prescribed  displaced  grid 
points 

:  Number  of  grid  point  axes  transformation 
systems 

:  Number  of  elements 

:  Number  of  requests  of  material  library 
:  Number  of  input  boundary  condition  points 
:  System  base  temperature 
:  Unit  on  which  processed  output  is  to  be 
written 

:  Array  indication  storage  location  of  input 
sections 

:  Number  of  solution  codes 
:  Number  of  legal  report  form  input  section 
labels 
:  Not  used 

:  Number  of  directions  per  grid  point 
:  Not  used 

:  Number  of  input  boundary  condition  points 
actually  read 

:  Number  of  input  grid  points  actually  read 
:  Number  of  input  elements  actually  read 
:  Number  of  input  grid  point  axes  systems 
actually  read  (transformation  matrices 
generated) 

:  Number  of  input  grid  point  axes  systems 
actually  read  (transformation  matrices 
input) 

:  Not  used 
:  Not  used 

:  Adjustable  dimension  for  COORD,  T,  P,  and 
I BOUND 


Argument: 

:  Logical  variable  indicating 
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6.  Error  Returns:  Error  messages  are  indicated  in  Appendix. 

If  an  error  occurs  logical  variable  ERROR  is  set  to  TRUE 
and  control  is  returned  to  the  calling  program. 

7.  Calling  Sequence:  Call  PHASE2 

(COORD,  T,  P,  MEMORY,  .T.BOUMD,  NAMES,  TM,  PM,  BM,  SM',  INM, 
PRM,  EM,  NLOAD,  NINITA,  NPRDIS,  ICALC,  NREF,  NREFP,  NTD, 

NL,  NID,  NPD,  NAXES,  NELEM,  NM,  NREF4,  TZERO,  INTAPE, 
LOCATE,  NUMCAL,  NUMNAM,  ICASE,  NDIR,  NEND,  NREF^C,  NREFPC, 
NELEMC,  NGRAXC,  NTRANC,  IN,  NRFP,  NRF,  ERROR) 

8.  Input  Tapes:  The  ar»ay  LOCATE  contains  the  unit  number, 

if  any,  on  which  data  was  stored  by  subrountine  PILASE1. 

9.  Output  Tape:  INTAKE  contains  processed  output. 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User:  REFORM 


13.  Subroutine  Required: 

14.  Remarks:  None 


OPEN 


Subroutine  Name: 


PDISP 


Purpose:  Generate  prescribed  displacement  :„atrix  if 

required. 

Equations  and  Procedures: 

A.  Check  if  matrix  name  is  suppressed,  if  it  is  then 
return  (no  matrix  is  output). 

B.  Check  if  NPDC’fl  and  NPDC^NL  print  error  message  and  return. 

C.  Use  EUTL5  to  write  matrix  header. 

D.  If  MODAL  array  is  blank  insert  zeros,  if  not  insert 
MODAL  values  into  displacement  column. 

E.  Loop  on  number  of  grid  points  for  which  values  were 
giv^a,  inserting  them  into  the  displacement  column. 

F.  Compress  column  each  time,  using  EUTL&,  and  write  it  out. 

G.  If  column  compresses  to  zero  skip  write  out. 

H.  Do  (D)  to  (G)  for  each  prescribed  displacement  condition. 

I.  At  end  use  EUTL6  to  write  matrix  trailer. 


Input  Arguments: 


NREF 

NTD 

NL 

PRM 

NPROIS 

IODISP 

NAMDIS 

NPDC 

DISP 

KTAPE 


number  of  system  grid  points 

number  of  degrees  Of  freedom/point  (NDEG#NDIR) 

number  of  externa;  load  conditions  input 

array  of  modal  values/condition 

number  of  input  points/condition 

output  logical  unit  number  of  matrix 

name  of  output  matrix  array  (7  elements  long) 

number  of  prescribed  displacement  conditions  input 

(array  area  used  by  IBOUND  array  used  in  PHASES- 

now  used  to  store  displacement  column) 

tape  logical  unit  number  used  for  displacement  input 


Output  Arguments:  ERROR  -  logical  variable  true  if  error 

return  is  used. 


Error  Returns:  If  NPDC^l  and  NPDC<NL. 

Calling  Sequence: 


Call  PDISP ( NREF , NTD ,NL , PRM , NPRDIS ,NPDC , IODISP , NAMDIS , DISP , 
KTAPE, ERROR) 


Input  Tapes: 
Output  Tapes: 
Scratch  Tapes: 


.KTAPE  -  See  Item  4. 

NPOT  -  standard  print  out  unit;  IODISP  -  See  Item  4. 
None 


11. 


Storage  Required:  Total  Storage  required  is  702^  Bytes. 

12.  Subroutine  User:  PHASE2 

13.  Subroutine  Required: 

EUTL5 

ET’TL6 

EUTL8 

1*1.  Remarks:  None 
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Subroutine  Name: 


OPEN 


Purpose-.  Select  a  unit  and  then  locate  the  requested 
input  section  on  that  unit 

Equations  and  Procedures:  The  correct  unit  number  is 
extracted  from  the  array  LOCATE.  The  unit  is  then  searched 
for  the  requested  input  section.  Searching  .starts  from  the 
present  position  of  the  unit  and  allows  the  end  of  the 
unit's  extent  to  be  reached  twice  before  the  search  is 
abandoned . 

Input  Arguments: 

LEADER  :  Identification  number  of  input  section 
being  processed 

NAMES  :  Array  containing  valid  labels 
LOCATE  :  Array  containing  corresponding  logical 
units  for  valid  labels 

*  v  Non-standard  return  for  error  condition 

Output  Arguments: 

NTAPE  :  Unit  containing  requested  input  section 

Error  Returns:  If  the  requested  input  section  is  not 
located  on  the  selected  unit  the  non-standard  return 
is  used. 

Calling  Sequence:  Call  OPEN 

(LEADER,  NAMES,  LOCATE,  NTAPE,  $XXXXX)  where  XXXXX 
is  the  statement  number  to  which  control  is  returned 
in  the  calling  program  if  an  error  occurs. 

Input  Tapes:  The  array  LOCATE  contains  the  logical  unit 
numbers  which  may  be  input  tapes. 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  is  2*»A^g  Bytes. 
Subroutine  User:  PHASE2 
Si;oroutines  Required:  None 


Remarks : 


None 


1. 


Subroutine  Name:  CHEK 


2.  Purpose:  Perform  input/output  cross-checking  for 
USER04  module 

3.  Equations  and  Procedures:  The  required  input  sections 
for  the  selected  output  matrices  are  indicated  in  the 
array  MASTER  (see  subroutine  LOGPLO).  The  actual  input 
sections  processed  are  indicated  in  the  array  ICONT. 

The  logical  array,  GO,  is  set  according  to  the  informa¬ 
tion  in  MASTER  as  compared  with  ICONT.  If  an  output 
matrix  requires  an  input  section  that  is  not  present 
then  a  message  is  printed  giving  the  matrix  name  and 
corresponding  position  in  the  GO  array  is  set  to  .FALSE. 

4.  Input  Arguments: 


NAMOUT 

NUMOT 

MAMIN 

NUMIN 

MASTER 

NUMAST 

ICONT 

NCONT 


Array  containing  output  matrix  names 

Number  of  output  matrices 

Array  containing  input  matrix  names 

Number  of  input  matrices 

Array  indicating  required  input  sections 

Length  of  MASTER 

Array  indicating  processed  input  sections 
Length  of  ICONT 


5.  Output  Arguments: 


GO  :  Array  indicating  input  requirements  have 

been  satisfied,  one  position  for  each 
possible  output  matrix 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

(NAMOUT,  NUMOT,  NAMIN,  NUMIN,  MASTER,  NUMAST,  ICONT, 
NCONT,  GO) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  59A1g  Bytes. 

12.  Subroutine  User:  US04A 


13.  Subroutines  Required:  NTEST 

14.  Remarks:  None 
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I 


P 


R 


1. 


2. 

3. 


4. 


5. 

6 . 


7. 


8. 


9. 


10. 


11. 


12. 


Subroutine  Name :  OUTINT 

Purpose:  Output  interpreted  input  data  as  a  matrix 

Equations  and  Procedures:  After  processing  the  input 
data  deck,  all  necessary  information  is  stored  in  three 
areas.  System  control  information  is  stored  in  the  array 
KNMD  and  in  the  first  two  records  on  scratch  unit  NTAPE1. 
Element  generation  data  is  stored  on  scratch  unit  NTAPE3. 
All  of  this  data  is  output  as  a  matrix,  the  first  column 
containing  KNMD,  the  second  and  third  columns  containing 
the  first  two  records  from  NTAPE,  the  fourth  column 
containing  two  words  (number  of  elements,  NELEM,  and 
grid  point  axes  indicator)  and  the  last  2*NELEM  columns 
containing  the  input  element  generation  data. 

Input  Arguments: 


NAMOUT 

IOSPEC 

NTAPE1 
NTAPE 3 
KNMD 
NUMK 
IWORK 


:  Array  containing  output  matrix  name 
:  Array  containing  unit  specifications  for 
output  matrix 

:  Unit  containing  system  control  information 
:  Unit  containing  element  generation  data 
:  Array  containing  system  control  information 
:  Length  of  KNMD 
:  Work  storage  area 


Output  Arguments:  None 
Error  Returns:  None 


Calling  Sequence: 

(NAMOUT,  IOSPEC,  NTAPE1,  NTAPE3,  KNMD,  NUMK,  IWORK) 

Input  Tapes: 

NTAPE1  :  Unit  containing  system  control  information 
NTAPE3  :  Unit  containing  element  generation  data 

Output  Tapes: 

IOSFEC(l):  Unit  which  will  contain  interpreted  input 
data  matrix 

Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  is  6DE1g  Bytes. 
Subroutine  User:  US04A 
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13.  Subroutine  Required: 

EUTL5 

EUTL6 

Remarks:  None 
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1.  Subroutine  Name:  PLOADS 

2.  Purpose:  To  generate  a  matrix  of  external  grid  point 
loads  which  is  acceptable  to  Format . 

3.  Equations  and  Procedures:  A  grid  point  load  matrix,  PnOL 

is  read  from  NTAPE4  for  each  load  condition.  It  is  then 
converted  into  compressed  format  and  stored  on  tape  I0SPEC 

The  matrix  dimensions  are  NSYS  x  NL,  where  NSYS  is  the 
size  of  the  total  assembled  load  column  and  NL  is  the 
number  of  grid  point  load  conditions. 

4.  Input  Arguments: 

NSYS  -  Size  of  total  assembled  load  column 
NAMOUT-  Array  containing  output  matrix  name  for  load 
matrix 

IOSPEC-  Output  tape  unit  number  for  loads  matrix 
NTAPE4-  Input  tape  unit  number  containing  loads  matrix 
POOL  -  Core  storage  area  for  loads  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  FL0ADS  (NSYS,  NAM0UT,  IOSPEC, 

NTAPE4,  PC0L) 

8.  Input  Tapes :  NTAPE4 

9.  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  34A^g  Bytes. 

12.  Subroutine  User  -  US04A 

13.  Subroutines  Required  -  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  FTR 

2.  Purpose:  To  generate  a  matrix  which  will  transform 

another  matrix  from  full  system  coordinates  to  "reduced” 
system,  i.e.  boundary  condition  constrained. 

3.  Equations  and  Procedures:  The  matrix  TR  is  of  order 

NMDB  X  NSYS  such  that  if  J  =  LIST  (I),  then  the  element 
TR  (I,  J)  =  1.0.  LIST  contains  the  row  numbers  of  the 
full  system  which  are  to  be  retained  in  the  reduced 
matrix.  Only  fixed  bounds  are  reduced  out  as  indicated 
by  KODE  •-  0  in  input  data  bounds. 

Each  column  is  generated  and  stored  on  tape  as  defined 
by  FORMAT.  Each  column  record  consists  of:  J,  1,  2,  1.0, 
where  J  =  LIST  (i). 

4.  Input  Arguments:  NMDB  -  order  of  reduced  matrix 

NSYS  -  order  of  full  system 
NAM0UT  -  matrix  name  of  TR 
I0SPEC  -  matrix  output  tape  for  TR 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  FTR  (NSYS,  LIST,  NTAPE1 ,  NAM0UT,  I0SPEC) 

8.  Input  Tape:  NTAPE1 

Record  #1  C0M1  (not  required) 

Record  #2  NMDB1,  NMDB,  (LIST  (I),  1=1,  NMDB) 

9.  Output  Tapes:  IOSPEC  -  Format  Output  Tape  Number 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  3^8-jg  Bytes. 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  TSYS 

2.  Purpose:  To  output  as  a  format  matrix  system  constants 

needed  outside  of  the  USERQ1!  module. 

3-  Equations  and  Procedures:  The  array  NMD  containing 

system  constants  generated  in  the  input  phase  of  the  USER04 
module  is  passed  to  subroutine  TSYS  by  subroutine  USERO^A. 
These  constants  are  then  converted  to  floating  point 
variables  and  output  as  a  column  matrix  to  the  format 
system. 

The  constants  that  are  output  are  as  follows  in  their 
respective  order: 

NDIR  -  number  of  directions 

NDEG  -  number  of  types  of  degrees  of  freedom 
NREP  -  highest  reference  node  in  element  connections 

NMDB  -  the  order  of  the  reduced  system  =  NMDB1+NMDB2 

NMDBO  -  the  number  of  zero  boundary  conditions 
NMDB1  -  the  number  of  ones 

NMDB2  -  the  number  of  twos 

NMDB01  -  the  number  of  zeros  plus  ones 

NMDB12  -  the  number  of  ones  plus  twos 

NTYPE  -  code  for  element  degrees  of  freedom 
NTYPE  «  0  for  3  types  of  D.O,F. 

NTYPE  ■  1  for  1  or  2  types  of  D.O.P. 

NSYS  -  the  total  number  of  system  degrees  of  freedom 
equals  NDIR*NDEU*NREF 

NELEM  -  the  number  of  elements  in  the  analyses 

NL  -  the  number  of  external  load  conditions  in  the 

analysis 

4.  Input  Arguments: 

NMD  -  array  of  system  constants 

NAMOUT  -  array  containing  the  name  of  the  format  matrix 

NSET  -  logical  unit  number  matrix  is  to  be-  written  on 

NREF  -  highest  reference  node  in  element  connections 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  TSYS (NMD, NAMOUT, NSET, NREP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  NSET 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  482^  Bytes. 

12.  Subroutine  User:  USQ4A 

13.  Subroutine  Required:  EUTL5,  EUTL6 

14.  Remarks:  Note  that  these  constants  have  been  converted  to 
floating  point  numbers. 
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1.  Subroutine  Name:  US04B 


2.  Purpose:  Control  Phase  Two  and  Phase  Three  operations 
(element  matrix  generation  and  element  matrix  output, 
respectively) . 

3.  Equations  and  Procedures:  System  control  information 
is  extracted  from  the  array  KNMD.  Scratch  units  are 
assigned  from  the  array  ISSPEC.  If  input  displacements 
are  present  then  subroutine  DEFLEX  is  called  to  record 
the  input  displacements  on  scratch  unit  NTAPE4.  If  the 
interpreted  input  matrix  position  is  non-blank  then 
subroutine  ININT  is  called  to  generate  input  tapes  NTAPE1 
and  NTAPE3.  Subroutine  FELEM  is  called  to  control  the 
generation  of  the  element  matrices.  And,  finally,  sub¬ 
routine  OUTMAT  is  called  to  place  the  generated  matrices 
into  the  Format  System. 

4.  Input  Arguments: 

NUMOT  :  Number  of  output  matrices 
NAMOUT  :  Array  containing  names  of  output  matrices 
IOSPEC  :  Array  containing  unit  specifications 
for  output  matrices 
NUMIN  :  Number  of  input  matrices 
NAMIN  :  Array  containing  names  of  input  matrices 
INSPEC  :  Array  containing  unit  specification  for 
input  matrices 

NUMSF.  :  Number  of  available  scratch  units 
ISSPEC  :  Array  containing  scratch  unit  specifications 
NUMSC  :  Number  of  scalars 

SCALAR  :  Array  containing  scalars 

NWORKR  :  Number  of  available  storages  in  work  area 
WORK  :  Work  area 

IPRINT  :  System  print  control 

KNMD  :  System  control  information 

MASTER  :  Array  containing  input/output  cross-checking 
codes 

NUMAST  :  Length  of  MASTER 

NUMK  :  Length  of  KNMD 

5.  Output  Arguments: 

ERROR  :  Logical  variable  indicating  error  condition 

6.  Error  Return:  If  an  error  is  detected  in  element  matrix 
generation  or  in  element  matrix  output  then  ERROR  is  set 
to  TRUE  and  control  is  returned  to  the  calling  program. 


233 


7.  Calling  Sequence:  Call  US04B 


(NUMOT,  NAM OUT,  IOSPEC,  NUMIN,  NAMIN,  INSPEC,  NUMSR, 
ISSPEC,  NUMSC,  SCALAR,  ERROR,  NWORKR,  WORK,  IPRINT, 

KNMD,  MASTER,  NUMAST,  NUMK) 

8.  Input  Tapes: 

NTAPE1  :  Contains  system  control  information 
NTAPE3  :  Contains  interpreted  element  input 

9.  Output  Tapes: 

IOSFEC(l,6)  :  Reserved  for  assembly  transformation 

matrix 

IOSPEC (1,7)  ■  Reserved  for  element  stiffness  matrices 

IOSPEC (1,8)  :  Reserved  for  element  load  matrices 

IOSFEC(l,9)  :  Reserved  for  element  stress  matrices 

IOSPEC (1,10)  :  Reserved  for  element  thermal  stress 

matrices 

I0SFEC(1,11)  :  Reserved  for  element  incremental 

stiffness  matrices 

IOSPEC(l,12)  :  Reserved  for  element  mass  matrices 

10.  Scratch  Tape: 

NTAPE2  :  Contains  element  generated  matrices 

in  compact  form 

NTAFE4  :  Contains  input  displacements,  if 

present 

11.  Storage  Required:  Total  storage  required  is  7D81g  Bytes. 

12.  Subroutine  User:  US04 

13.  Subroutines  Required: 

NTEST 

ININT 

DEFLEX 

FELEM 

CUTMAT 

14.  Remarks:  None 
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1.  Subroutine  Name:  ININT 

2.  Purpose:  Restore  data  from  interpreted  input  matrix 

3.  Equations  and  Procedures:  Subroutine  EUTL3  is  called 
to  locate  the  input  matrix.  The  first  column  of  the 
matrix  contains  system  control  information  and  is  read 
into  KNMD.  Columns  two  and  three  contain  further  system 
information  and  are  recorded  as  the  first  two  records 

on  NTAPE1.  Column  four  and  all  succeeding  columns  contain 
element  generation  input  data  and  are  recorded  on  NTAPE3. 

Input  Arguments: 

NAMIN  :  Array  containing  input  matrix  name 
INSPEC  :  Array  containing  unit  specifications 
for  input  matrix 

NTAPE1  :  Unit  reserved  for  system  control  information 
NTAPE3  :  Unit  reserved  for  element  generation  input  data 

KNMD  :  Array  reserved  for  system  control  information 

IWORK  :  Work  storage  area 

NUMK  :  Length  of  KNMD 

5.  Output  Arguments: 

IER  :  Logical  variable  indicating  error  condition 

6.  Error  Returns:  If  the  input  matrix  cannot  be  located,  or 
a  word  count  error  occurs  for  columns  one  or  four,  or  the 
matrix  trailer  record  is  encountered  unexpectedly,  then 
IER  is  set  to  .TRUE.. 

7.  Calling  Sequence: 

(NAMIN,  INSPEC,  NTAPE1,  NTAPE3,  KNMD,  IWORK,  NUMK,  IER) 

8.  Input  Tapes: 

INSPEC (1)  :  Unit  containing  interpreted  input  matrix 

9 .  Output  Tape  s : 

NTAPE1  :  Unit  reserved  for  system  control  information 

NTAPE3  :  Unit  reserved  for  element  generation  input 

data 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  912^^ g  Bytes. 
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12.  Subroutine  User: 

13.  Subroutines  Required: 

14.  Remarks:  None 
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1.  Subroutine  Name:  D'EFLEX 

2.  Purpose:  Sort  input  displacement  matrix  into  separate 
element  input  sections 

3.  Equations  and  Procedures:  The  input  displacements  for 
the  system  are  read  into  the  IWORK  array  and  restored 
at  the  end  of  the  IWORK  array.  For  each  element,  the 
following  procedure  is  invoked:  the  element  generation 
input  data  is  read  from  scratch  unit  NTAFE3;  the  array 
containing  the  element  definition  points  is  extracted; 
the  input  displacements  corresponding  to  these  points 
are  selected  from  the  system  input  displacements  and 
written  on  scratch  unit  NTAFE4. 

Input  Arguments: 

NSYS  :  Total  degrees  of  freedom  in  system 

NAMIN  :  Array  containing  input  matrix  name 

INSPEC  :  Array  containing  unit  specifications 
for  input  matrix 

NTAPE3  :  Unit  containing  element  generation  input 

NTAPE4  :  Unit  reserved  for  element  input  displacements 

IWORK  :  Work  storage  area 

NWORK  :  Length  of  IWORK 

MAXNI1  :  Maximum  length  of  record  on  NTAPE3 

5.  Output  Arguments: 

IER  :  Logical  variable  indicating  error  condition 

6.  Error  Returns:  If  the  input  matrix  cannot  be  found, 

or  its  dimensions  are  not  NSYS  by  one  or  IWORK  does  not 
contain  sufficient  storage  locations  then  IER  is  set 
to  .TRUE.. 

7.  Calling  Sequence: 

(NSYS.  NAMIN.  INSPEC,  NTAPE3,  NTAPE4,  IWORK,  NWORKR, 

MAXNI1,  IER) 

8.  Input  Tapes: 

NTAPE3  :  Unit  containing  element  generation  input  data 
INSPEC (1):  Unit  containing  system  input  displacement  matrix 

9.  Output  Tapes: 

NTAPE4  :  Unit  reserved  for  element  input  displacements 
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10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User:  US04B 

13.  Subroutines  Required: 

EUTL3 

EUTL9 

14.  Remarks:  None 
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1.  Subroutine  Name:  FELEM 

2.  Purpose:  Set  element  matrix  generation  controls  and 
initiate  matrix  generation. 

3.  Equations  and  Procedures:  Logical  unit  definitions  are 
assigned  to  their  structural  system  functions.  An  array, 
IWORK,  is  reserved  for  storage  of  generation  controls 
and  system  information.  The  generation  controls  are 
determined  by  examining  the  output  matrix  names  and  the 
system  information  is  retrieved  from  unit  NTAPE1.  Sub¬ 
routine  SQUISH  is  called  to  compute  matrix  suppression 
controls.  The  number  of  elements  is  read  from  unit  NTAPE3 
and  subroutine  ELPLUG,  which  selects  the  correct  element 
type,  is  called  for  each  element. 

4.  Input  Arguments: 

KP  :  Not  used 

NTAPE1  :  Logical  unit  containing  system  control 

information 

NTAPE2  :  Logical  unit  reserved  for  generated  element 
matrices 

NT APE 3  :  Logical  unit  containing  interpreted  element 

input 

NORDM  :  Maximum  element  degrees  of  freedom 

NRSELM  :  Maximum  element  stress  order 

NOINKM  :  Maximum  storage  required  for  element  stiffness 

matrix 

NIAM  :  Maximum  storage  required  for  element  matrix 
record  on  NTAPE2 

NTAPE4  :  Logical  unit  containing  input  displacements, 
if  present 

5.  Output  Arguments: 

ERROR  :  Logical  variable  indicating  error  condition 

6.  Error  Returns:  If  an  error  occurs  in  generation  of  element 
matrices  then  ERROR  Is  set  to  .TRUE,  and  control  is 
returned  to  the  calling  program. 

7.  Calling  Sequence:  Call  FELEM 

(KP,  NTAPE1,  N TAPE 2,  NTAPE3,  NORDM,  NRSELM,  NOINKM, 

NIAM,  ERROR,  NTAPE4 ) 

8.  Input  Tapes: 

NTAPE1  :  Contains  system  control  information 
NTAPE3  :  Contains  interpreted  element  input 
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9.  Output  Tapes; 

NTAPE2  ;  Reserved  for  compact  storage  of  element 
generated  matrices 

10.  Scratch  Tapes;  None 

11.  Storage  Required;  Total  storage  required  is  5D8^g  Byt 

12.  Subroutine  User;  US04B 

13.  Subroutines  Required;  ELPLUG,  SQUISH 

14.  Remarks:  None 


240 


I! 

i 


1.  Subroutine  Name:  SQUISH 

2.  Purpose:  Set  matrix  suppression  codes  for  element 
generation  phase 

3.  Equations  and  Procedures:  The  indicators  are  initially 
set  to  zero,  signifying  suppression  is  desired.  Sub¬ 
routine  NTEST  is  called  to  examine  the  output  matrix 
names  for  suppression  selections.  For  each  non- suppressed 
matrix  position  encountered  the  corresponding  indicator 

is  reset  to  one. 

4.  Input  Arguments: 

NAMOUT  :  Array  containing  matrix  names 
NUMOT  :  Number  of  output  matrices 

5 .  Output  Arguments : 

KK  :  Suppression  indicator  for  element  stiffness 

matrices 

KF  :  Suppression  indicator  for  element  load  matrices 

KS  :  Suppression  indicator  for  element  stress 

matrices 

KN  :  Suppression  indicator  for  element  incremental 

stiffness  matrices 

KM  :  Suppression  indicator  for  element  mass  matrices 

KDS  :  Suppression  indicator  for  element  structural 

damping  matrices 

KDV  :  Suppression  indicator  for  element  viscous 

damping  matrices 

KTS  :  Suppression  indicator  for  element  thermal 

stress  matrices 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(NAMOUT,  KK,  KF,  KS,  KN,  KM,  KDS,  KDV,  KTS,  NUMOT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 
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11.  Storage  Required:  Total  storage  required  is  BDE^  Bytes. 

12.  Subroutine  User:  FELEM 

13.  Subroutines  Required:  NTEST 

14.  Remarks:  None 
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Subroutine  Name: 


ELPLUG 


Rirpose:  Select  proper  element  type  to  generate 
requested  element  matrices. 


Equations  and  Procedures:  Subroutine  REC1  is  called 
to  obtain  the  interpreted  element  input.  If  input  dis¬ 
placements  were  present  then  the  values  are  retrieved 
from  unit  NTAPE4.  Included  in  the  interpreted  element 
input  is  the  element  type  coce  number  (plug  number). 

Prom  this  data  the  proper  plug  subroutine  is  called  and 
the  requested  element  matricss  are  generated.  If  the  plug 
number  is  five,  six  or  fourteen  the  grid  point  axes 
transformations  are  then  applied.  If  the  plug  number 
was  one,  two  or  seven  then  grid  point  axes  transform¬ 
ations  were  applied  inside  the  plug.  Subroutines  REC3 
and  REC4  are  called  to  write  as  external  units  element 
control  data  and  the  generated  element  matrices, 
respectively.  Finally,  if  an  element  matrix  print  has 
been  requested  then  subroutine  ELPRT  is  called  to 
perform  the  printing. 

There  is  only  one  exception  to  the  above  procedure. 

If  the  option  to  repeat  element  matrices  has  been 
selected  (IP  =  -2),  then  the  plug  subroutine  is  bypassed 
and  element  matrices  from  the  previous  element  are 
written  again  by  REC3  and  REC4. 


Input  Arguments:  The  input  arguments  contained  in  JWORK 
are : 


JW0RK(1)-IEL 

JW  ORK ( 2 ) - ITAPE 

JW0RK(3)-KK 

JW0RK(4)-KF 

JW0RK(5)-KS 

JWORK (6) -KM 

JW0RK(7)-KDS 

JW0RK(8)-KDV 

JW0RK(9)-KN 

JWORK ( 11 )-NMDD 
.JWORK  { 12  j-NDIR 
JWORK ( 13 )-NDEG 

JWORK (l4)-IC0NT 


Element  generation  sequence 
number  (IEL  =  1,2,3,  .  .  .  ,  NELEM) 
Indicator  controlling  writing  of 
matrices  on  external  unit 
Element  stiffness  matrix  suppression 
control 

Element  load  matrix  suppression 
control 

Element  stress  matrix  suppression 
control 

Element  mass  matrix  suppression 

control 

Not  used 

Not  used 

Element  incremental  stiffness  matrix 
suppression  control 
Not  used 

Number  of  directions  per  grid  point 
Number  of  solution  degrees  of 
freedom  per  grid  point 
Grid  point  axes  trains  format  ion 
indicator 


JWORK  ( 15  )-NTAPE-2  :  Unit  number  reserved  for  generated 

element  matrices 

JW0RK(l6  )-NTAPE3  :  Unit  number  containing  interpreted 

element  input 

JW0RK(l8)-ILP  :  Internal  element  type  code 

JW0RK(19)-IPL  :  Input  element  type  code 

JWORK ( 20 )-NTAPE4  :  Unit  number  containing  input  dis¬ 

placement,  if  present 

JW0RK(21)-INDISP  :  Variable  indicating  presence  of 

input  displacements 

Other  input  arguments  are: 

NUMOT  :  Number  of  output  matrices 

NAMOUT  :  Array  containing  output  matrices  names 

5.  Output  Arguments:  Input  and  output  arguments  are  contained 
in  the  array  JWORK.  The  output  arguments  contained  in 
JWORK  are: 

JWORK ( 10 J-NORD  :  Element  degrees  of  freedom 

JWORK ( 17 )-NIAM  :  Maximum  number  of  storages  required 

to  write  a  record  on  unit  NTAPE2 
JWORK ( 20 )-NERR  :  Returning  error  code, 

if  NERR  is  zero  then  no  error  has 
occurred, 

if  NERR  is  one  then  element  type  code 
number  is  incorrect, 
if  NERR  is  two  then  the  number  of 
element  defining  points  is  incorrect, 
if  NERR  is  three  then  the  special 
element  input  is  incorrect,  and 
if  NERR  is  four  then  the  number  of 
element  degrees  of  freedom  is 
incorrect. 

6.  Error  Returns:  If  NERROR  is  not  zero  upon  return  from 
ELPLUG,  then  an  error  has  occurred. 

7.  Calling  Sequence:  Call  ELPLUG  (JWORK,  NUMOT,  NAMOUT) 

8 .  Input  Tape : 

NTAFE3  :  Unit  containing  interpreted  element 

input 

9  -  Output  Tape : 

NTAPE2  :  Unit  reserved  for  generated  element 

matrices 


10.  Scratch  Tapes:  None 


11.  Storage  Required:  Total  storage  required  is  lB30^g  Bytes. 

12.  Subroutine  User:  FELEM 

13.  Subroutines  Required: 

REC1 

PLUG1 

PLUG2 

PLUG5 

PLUG6 

PLUG? 

PLUG14 

AXTRA3 

AXTRA2 

AXTRA1 

REC3 

REC4 

ELPRT 

14.  Remarks:  Storage  for  the  generated  element  matrices 
and  work  areas  required  by  ELPLUG  is  allocated  by  equiv- 
alencing  into  the  blank  common  work  area  starting  at 
location  1001  and  extending  to  location  6000.  Work  storage 
for  the  various  element  types  is  allocated  by  equivalencing 
into  the  blank  common  work  area  at  location  6001. 
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1 .  Subroutine  Name :  REC3 


2.  Purpose:  Write  or  read  element  control  information  tape 
records . 

3.  Equations  and  Procedures:  The  decision  to  read  or  write 
the  record  is  determined  by  examining  the  input  variable 
IOPT  in  the  following  manner: 

if  IOPT  -s  1  the  record  is  read 
if  IOPT  5:  2  the  record  is  written 

4.  Input  Arguments:  (if  IOPT 2) 

IOPT :  Pead/write  indicator 

K  :  Fortran  logical  unit  number 

NI3  :  Number  of  words  in  record  (excluding  NI3) 

JEL  :  Element  number 

I PL  :  Element  type  code  number  (plug  number) 

NLIST  :  Element  order  (number  of  degrees  of  freedom 

per  point  *  number  of  points) 

LISTEL  :  Vector  containing  boundary  condition  information 

for  element 

NIA:  Not  used  (set  equal  to  one) 

IAKEL  :  Not  used 

5-  Output  Arguments:  (if  IOPT  1) 

Given  the  proper  value  of  IOPT,  all  of  the  above  input 
arguments  will  be  output  arguments  with  the  exception  of 
IOPT  and  K,  which  are  always  input  arguments  . 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  REC3  (IOPT,  K,  NI3,  JEL,  IPL,  NLIST,  LISTEL,  NIA,  AKEL) 

8.  Input  Tape:  If  IOPT^l,  then  K  is  an  input  tape. 

9.  Output  Tape:  If  IOPT>:  2,  then  K  is  an  output  tape. 

10.  Scratch  Tape:  None 

11.  Storage  Required:  Total  storage  required  is  368^  Bytes. 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  REC4 

2.  Purpose:  Read  or  write  generated  element  matrices  records. 

3.  Equations  and  Procedures:  The  decision  to  read  or  write 
the  record  is  determined  by  examining  the  input  variable 
IOPT  in  the  following  manner: 

if  IOPT  <1  then  a  record  is  read 

if  I0PTS2  then  a  record  is  written 

4.  Input  Arguments:  (when  I0PT>2) 

IOPT:  Read/write  indicator 

K:  Fortran  logical  unit  number 

NOINK:  Number  of  storages  required  for  stiffness  and 

incremental  stiffness  matrices 

AKELT:  Element  stiffness  matrix 

NORD:  Number  of  storages  required  for  element  loads 

matrix 

FTEL:  Element  loads  matrix 

NNO:  Number  of  element  defining  points  (node  points) 

NODES:  Grid  point  numbers  defining  element 

NSEL:  Number  of  storages  required  for  element  stress 

matrix 

NRSEL '•  Number  of  rows  in  element  stress  and  thermal 

stress  matrices,  also  number  of  storages  required 
for  element  thermal  stress  matrix 

SEL:  Element  stress  matrix 

SZALEL :  Element  thermal  stress  matrix 

ANEL:  Element  incremental  stiffness  matrix 

FNEL:  Not  used 

NMASS:  Number  of  storages  required  for  element  mass 

matrix 

AMASS:  Element  mass  matrix 

NDMFV:  Number  of  storages  required  for  element  viscous 

damping  matrix 

DAMPV:  Element  viscous  damping  matrix 

NDMPS:  Number  of  storages  required  for  element  structural 

damping  matrix 

DAMPS:  Element  structural  damping  matrix 
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5.  Output  Arguments:  (when  I0PT2S1) 

Nl4  -  number  of  words  contained  in  record  (excluding  Nl4) 
All  of  t\e  above  input  arguments  are  output  arguments  given 
the  correct  value  of  IOPT  except  for  IOPT  and  K  which  are 
always  input  arguments. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  REC4  (IOPT,  K,  Nl4,  NOINK,  AKELT,  NORD,  FTEL,  NNO, 
NODES,  NSEL,  NRSEL,  SEL,  SZALEL,  ANEL,  PNEL,  NMASS,  AMASS, 
NDMPV,  DAMPV,  NDMPS,  DAMPS) 

8.  Input  Tape:  If  IOPT  ^1  then  K  is  an  input  unit. 

9.  Output  Tape;  If  I0PT>2  then  K  is  an  output  unit. 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  850^  Bytes. 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  name:  MINV 

2.  Purpose:  Invert  a.  matrix, 

3.  Equations  and  Procedures:  The  standard  Gauss-Jordan  Method 

is  used  in  which  the  inverted  matrix  is  stored  back  on  itself. 

4.  Input  Arguments: 

A:  Matrix  to  be  inverted 

N :  Order  of  matrix 

D :  Determinant  of  matrix 

L:  Work  vector  of  length  N 

M:  Work  vector  of  length  N 

5.  Output  Arguments:  A  -  Contains  the  inverted  matrix 

6.  Error  Returns:  If  D  =  0,  matrix  is  singular. 

7.  Calling  Sequence:  CALL  MINV  (A,  N,  B,  L,  M) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  818^  Bytes. 

12.  Subroutine  User:  TRAIC,  NEWFT,  PLUG1,  PTBM,  PTBF,  MAT PR,  NEWELL 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


249 


1  .  Subroutine  Name:  AXTRA2 


2.  Purpose:  Apply  grid  point  axes  transformation  by  post¬ 
multiplication  using  either  the  actual  transformation 
matrix  or  its  transpose  . 


Equations  and  Procedures: 


where: 


Lmout] 

re:  M 

[Epa] 

[moutI 


M  QgPaI 


[mout! 


[min]  Igpa] 


is  the  input  element  matrix, 

is  the  element  grid  point  axes  trans¬ 
formation  matrix, 

is  the  output  transformed  element  matrix. 


[Moum  is  stored  in  the  same  location  as  M^,  therefore, 

the  input  element  matrix  is  lost  once  the  multiplication 
has  been  effected.  Advantage  is  taken,  during  multiplica¬ 
tion,  of  the  fact  that  [I~Gp3  is  structured  as  a  set  of 


is  structured  as  a  set  of 


(3^3)  or  (2x2)  matrices  with  main  diagonal  positions 
lying  on  the  main  diagonal  of  [JqpAJ  • 

4  .  Input  Arguments : 


GPAXEL 

SEL 

NROW 

NNO 

NDEG 

ND1R 

IPL 

ITRAN 


Element  grid  point  axes  transformation  matrix, 

Input  element  matrix  [mtn] 

Number  of  rows  in  SEI7  1WJ 
Number  of  element  node  points 
Number  of  degrees  of  freedom 
Number  of  directions 

Element  plug  number  _  ~ 

Control  code,  if  ITRAN  =  0,  then  “  MIN  JgPA. 

if  ITRAN  =1,  then^  =  ^IN]  jgp*  ' 


5.  Output  Arguments: 

SEL  :  Output  transformed  element  matrix , 

6.  Error  Returns:  None 


7-  Calling  Sequence: 

CALL  AXTRA2  (GPAXEL,  SEL,  NROW,  NNO,  NDEG,  NDIR,  IPL,  ITRAN) 

8.  Input  Tapes:  None 


9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 
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11.  Storage  Required:  Total  Storage  required  is  1»D61g  Bytes. 
ROW  (?) 

isavi;  (3) 

12.  Subror ^ine  User:  ELPLUG,  PLUG?,  PI.UG2,  CK22,  CK11 
13-  Subroutine  Required:  None 

14 .  Remarks :  The  output  matrix  is  stored  in  the  input  matrix 
storage.  Grid  point  axes  transformation  is  not  applied 
to  the  rotation  terms  at  the  mid-points  of  the  quadri¬ 
lateral  thin  shell  and  the  triangular  thin  shell  elements  . 
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1. 


Subroutine  Name:  MAB 


2. 


3. 


4. 


5- 


6. 


7. 

8. 

9- 


10. 


11. 


-L 


2. 


13. 


14. 


Purpose:  To  evaluate  the  matrix  product  A  *  B  =  AN 
Equations  &  Procedures: 


AN. 


nm 


Z 

0 


A  *  3 

Anj  a  .<m 


Input  Arguments: 

A:  Elements  of  [A1  matrix 

B:  Elements  of  iSj  matrix 

N:  Number  of  rows  in  [A]  matrix 

L:  Number  of  columns/rows  in  [A]  [B]  matrix 

M:  Number  of  columns  in  [B]  matrix 

N1,M1:  Dimension  of  [AJ  matrix 

N2,M2:  Dimension  of  [Bj  matrix 

Output  Arguments: 

AN:  The  matrix  product 

Error  Returns :  None 

Calling  Sequence:  CALL  MAB  (A,B,AN,N,L,M,N1,M1,N2,M2) 
Input  Tapes :  None 
Output  Tapes:  None 
Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  2F6^  Bytes. 


B(l) 

AN(1) 


Subroutine  User:  Used  by  many  subroutines  within  the  MAGIC 
program 

Subroutines  Required:  None 
Remarks:  None 
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1.  Subroutine  Name:  MSB 


2. 

3. 

4. 


5. 

6. 
7. 
3. 

9. 

10. 

11. 


12. 

13. 

14. 


Purpose:  To  evaluate  the  matrix  product  of  a  symmetric  - 
bottom  half  matrix  and  a  rectangular  matrix 


Equations  &  Procedures: 

AN  =  I  S„*  B 
nm  e  ne  em 


Input  Arguments : 

S:  Elements  of  Is]  matrix  (symmetric) 

B:  Elements  of  [BJ  matrix 

N:  Number  of  rows  in  the  [s] ,  fei  and  [All]  matrices  (order) 
M:  Number  of  columns  in  the  [BJ  and  [AN]  matrices  (order) 

N1  and  Ml:  Dimensions  of  the  [B]  and  [AN]  matrices 

Output  Arguments:  AN:  Matrix  product 

Error  Returns :  None 

Calling  Sequence:  CALL  MSB  (S, B,AN,N,M,N1,M1) 

Input  Tapes :  None 
Output  Tapes :  None 
Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  312l6  ^ytes. 

B(l) 

S(l) 

AN(1) 

Subroutine  User:  Used  by  various  subroutines  within  the 
MAGIC  Program. 

Subroutines  Required :  None 

Remarks:  (sj  is  of  the  form 
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1 .  Subroutine  Name:  BCB 

2.  Purpose:  To  evaluate  the  triple  product  of  ohe  transpose  of 
a  matrix  A,  a  symmetric  matrix  S  and  the  A  matrix. 

5.  Equations  and  Procedures: 

ANmm  =  £  5  ftL  "  Snn  *  Anm  <See  remark.  U 

4.  Tnput  Arguments: 

A:  The  elements  of  the  [A]  matrix 

GYM:  The  elements  of  the  [S]  matrix  (symmetric -bottom  half) 
ND,MD:  Dimensions  of  a  matrix 
N,M:  Order  of  A  matrix 

Nl:  Number  of  rows  to  be  deleted  in  multiplication 
GOAL:  Scalar  quantity 
TASSY:  (see  remark  2) 

r5.  Output  Arguments: 

AM:  Elements  of  the  matrix  AN  which  is  the  final  product 

6.  Error  Returns:  None 

7.  Palling  Sequence: 

PALf,  BCB  (A,  SYM,  AN,  ND,  MB,  N,  M,  Nl,  SCAL,  IASSY) 

.  Tnput  Tapes:  None 
0.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  542^  Bytes. 

12.  Subroutine  User:  Various  routines  within  MAGIC 

13.  Subroutines  Required:  None 

14.  Remarks: 


1.  Tn  the  summation?,  the  n’s  must  be  replaced  by  dummy 

subscripts,  running  from  1  to  n.  The  dummy  must  be  used 


n 

y 

n 

y 

) 

to  ensure  proper  summing. 

L 

L 

r=1 
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2.  IASSY  controls  the  summation  procedure. 

If  IASSY  =  1,  AN  will  be  the  sum  of  the  calculated  AN 
and  all  previous  calculations  of  AN. 

If  IASSY  =  0,  AN  will  be  the  triple  product  for 
this  calculation. 
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1.  Subroutine  Name:  MATB 


2.  Purpose:  Subroutine  to  evaluate  the  matrix  product  of 
A  transpose  and  B. 

3.  Equations  and  Procedures: 


-  I  AT 


L.  A  *  B 
e  en  em 


where 


A;„  is  the  transpose  of  A 
en  ne 

4.  Input  Arguments: 

A:  elements  of  [A]  matrix 
P:  elements  of  [B]  matrix 
N:  number  of  rows  in  [a]  matrix  (order) 

L:  number  of  columns  in  Ja]  matrix  (order) 

M:  number  of  rows  in  [b]  matrix  (order) 

N1,M1:  dimension  of  [a]  matrix 
N2,M2:  dimension  of  [b]  matrix 

5.  Output  Arguments: 

AN:  elements  of  matrix  product 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  MATB  (A,  B,  AN,  N.  L,  M,  Nl,  Ml, 

N2,  M2) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  306^  Bytes, 

12.  Subroutine  User:  Various  subroutines  in  MAGIC 


13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  SYMPRT 

2.  Purpose:  To  print  a  sypnetric  matrix  as  output 

3.  Equations  and  Procedures:  Not  Applicable 

4.  Input  Arguments: 

SYM:  Elements  of  the  symmetric  matrix 
Nl:  Matrix  identification  number 

N2:  Dimension  of  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  SYMPRT  (SYM,  Nl,  N2) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  270l6  Bytes. 

12.  Subroutine  User:  Various  subroutines  in  MAGIC  System 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  L0C 

2.  Purpose:  Compute  a  vector  subscript  f^r  an  element  in  a 
matrix  of  specified  storage  mode 

3.  Equations  and  Procedures:  The  routine  determines  the  type 
of  matrix  and  computes  the  subscript  accordingly. 

4.  Input  Arguments: 

I :  Row  number  of  element 

J :  Column  number  of  element 

N :  Number  of  rows  in  matrix 

M:  Number  of  columns  in  matrix 

MS:  Storage  mode  of  matrix 

0  General 

1  Symmetric  (Upper  Half) 

2  Diagonal 

5.  Output  Arguments:  IR  -  Resultant  vector  subscript 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  L0C  (I,  J,  IR,  N,  M,  MS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  298-^  Bytes. 

12.  Subroutine  User:  MPRD,  TPRD,  AXTRA3 

13.  Subroutines  Required:  None 
l4:  Remarks:  None 
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1.  Subroutine  Name:  ELTEST 

2.  Purpose:  Check  on  input  variables  (plug  number,  number  of 
nodes,  order  of  matrix^,  for  a  specific  element. 

3.  Equations  &  Procedures:  Logical  "IF"  statement  is  used  to 
check  equivalence  of  variables  with  predefined  program  con 
stants . 

4.  Input:  IPL  &  IPL1  -  plug  number  &  check  constant 

NNO  &  NN01  -  number  of  nodes  &  check  constant 
NORD  &  N0RD1  -  order  of  matrix  &  check  constant 

5.  Output:  NERR  (error  return) 

6.  Error  Returns:  NERR  =  0  No  error 

NERR  =  1  Plug  number  incorrect 
NERR  =  2  Number  of  nodes  incorrect 
NERR  =  4  Order  of  matrix  incorrect 

7.  Calling  Sequence:  CALL  ELTEST  (IPL,  l’PLl,  NNO,  NN01,  IP, 

IP1,  NORD,  N0RD1,  NERR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  storage  required  is  27A1g  Bytes. 

12.  Subroutine  User:  All  plugs 

13.  Subroutines  required:  None 

14.  Remarks:  None 
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Subroutine  Name:  PLUG1 


Purpose:  To  formulate  the  element  matrices  for  a  quadri¬ 
lateral  plate 

Equations  and  Procedures:  The  following  sequence  of  op¬ 
erations  are  necessary  in  order  to  obtain  the  element 
matrices.  Equations  are  found  in  Volume  I. 

A.  The  material  and  geometric  properties  are  obtained  from 
MAT  and  EXTRA  respectively. 

B.  From  the  Appendix  of  reference  1,  the  corner  points 
defining  the  element  are  redefined  to  local  oblique 
system  Dy  TRAOBQ.  Provision  is  made  to  also  account 
for  different  material  axis  orientation  (due  to  ortho- 
tropy)  or  for  a  specific  input  stress  direction. 

C.  The  following  operations  are  performed  as  formulated  in 
the  appropriate  equations: 

(] )  Call  NEWFT  to  form  matrices  necessary  for 
thermal  loadings, 

(2)  Call  CDEL^Q  to  determine  integrals  of  each  zone 
of  the  quadrilateral, 

(3)  The  material  property  matrix  dependent  upon  the 
stress-strain  input  of  EXTRA  (4)  is  coded  as  EM, 

(4)  The  strain,  stress  and  displacement  t ran s formations 
are  coded  as  TES,  TESS  and  TW  respectively, 

(5)  Compute  [EG]  =  [TE$]T  [sm]  [TE$]  , 

(6)  Store  transpose  of  [TE$$]  into  [T$AVE]  ,[T$AVE]is 
then  stored  back  into[TE$$]  and  inverted, 

(7)  If  print  option  eauals  -1,  call  P1PRTA  for  print 
of  intermediate  computations, 

(8)  Initialize  the  thermal  load,  pressure,  thermal 
stress,  stress  and  mass  matrices  to  zero. 

D.  Membrane  computations  are  performed  in  the  following 
manner: 

1.  Call  CK11  to  formulate. the  [K21S]  element  stiff¬ 
ness  matrix  in  global  system, 

2.  Formulate  the  transformation  from  local  to  global 
system  by  forming  the  product  [TAOM]  [TOGM]  [TGM]  = 


3.  Equations  and  Procedures:  Continued 

(3)  If  mass  matrix  is  requested  then 

a.  Call  CMMASS  to  form  the  membrane  mass  matrix 
in  local  systems  (CMM), 

b.  The  mass  matrix  is  then  transformed  to  global 
systems  as  [AMASS]  =  [TGSM]t  [CMM]  [TGSMJ  . 

(4)  If  stress  and/or  ■  rce  matrices  are  requested  then 

a.  Call  C$TM  to  formulate  the  membrane  stress 
matrix  [s]  , 

b.  Call  CFMTS  to  formulate  the  membrane  thermal 
force  and  stress  matrices. 

(5)  If  print  controls  equal  -1,  call  PRT1  to  print 
out  intermediate  matrices. 

E.  Flexural  computations  are  then  performed  in  the 
following  manner: 

(1)  Call  CK22  to  add  the  flexural  contributions  to 
the  stiffness  matrix  [K21S]  , 

(2)  Apply  transformation  to  global  system  by  perform¬ 
ing  [TFM]  =  [TGAMB]  [TOGBJ  [TGRB]  , 

(3)  If  stress  and/or  force  matrices  are  requested  then 

a.  If  input  pressure  not  equal  to  0,  call  CFP 
to  formulate  the  pressure  matrix, 

b.  The  flexural  contributions  to  the  stress 
matrix  are  formulated  by  calling  C$TF, 

c.  If  flexural  input  temperature  not  equal  to 
zero,  calls  CFFTS  to  formulate  the  thermal 
force  and  stress  matrices. 

(4)  If  mass  is  requested  then 

a.  Call  CFMASS  zo  form  the  membrane  mass  matrix 
in  local  system  [CMF]  , 

b.  The  mass  matrix  is  transformed  to  global  sys¬ 
tem  as  [AMASS]  -  [TGFS]  T  [CMF]  (TGFS] 

(5)  Again  if  the  print  option  is  -1,  intermediate 
element  computation  printout  is  obtained  from  PRT1. 
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Input  Arguments: 


I  PL 
NNO 

XC. YC,ZC 

TEL 

PEL 

NN 

NL 

KK,KN 

GPAXEL 

MAT 

EXTRA 


Plug  number 
Number  of  nodes  (8) 

Coordinates  of  element  node  points 
Temperature  array  of  element  n^de  points 
Pressures  at  element  node  poi*.  cs 
Number  of  nodes 
Node  point  numbers 

Control  for  computation  of  matrices  (see  remarks) 
Grid  point  axes  transformations 
Array  containing  material  properties 
Array  containing  geometric  properties 


Output  Arguments: 


K21S  :  Stiffness  matrix 

FTEL  :  Element  force  matrix 

S  :  Stress  matrix 

SZALEL  :  Thermal  stress  matrix 

AMASS  :  Mass  matrix  for  dynamic  analysis 


Error  Returns: 


a.  Standard  error  returns  by  ELFLUG  (NERR) 

b.  Sin «*  =  0  indicates  coordinate  input  data  error 

Calling  Sequence: 

CALL  PLUG1  (IP!,.  NNO,  XC,  YC,  ZC,  TEL,  PEL,  QS,  IP,  NORD, 
NERR,  NOINK,  K21S,  AN1,  FTEL,  S,  SZALEL,  AMASS,  DAMPV, 

DAMPS,  NRSEL,  NN,  NL,  NMASS,  NDMFV,  NDMPS,  NSEL,  KK,  KF,  K8, 
KTS,  KM  ,  KDS,  KDV,  KN,  TUSEL,  EPSLON,  SIGZER,  MAT,  EXTRA, 
GPAXEL,  NDIR,  NDEG,  ICONT) 

Input  Tapes :  None 

Output  Tapes :  None 

Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  is  2916-^g  Bytes. 
Subroutine  User:  ELPLUG 


13.  Subrout ines  Required: 

ELTE3T  CSTM 

NEWFr  GFMTS 

CDELPQ  PRT1 

MINV  CK22 

BOB  GFP 

CK11  CSTF 

MABC  CFFTS 

CMMASS  CFMASS 

14.  Remarks: 

The  following  Isa  list  of  control  indicators  for  PLUG1. 
For  all  indicators  shown  a  value  of  one  will  cause  the 
operation  to  be  performed  and  a  value  of  zero  will 
cause  the  operation  to  be  skipped. 

LT1  -  compute  membrane  contributions 

LT2  -  compute  flexural  contributions 

KK  -  compute  element  stiffness  matrix 

KF  -  compute  element  force  matrix 

(thermal  and/or  pressure) 

K8  -  compute  element  stress  matrix 

KTS  -  compute  element  thermal  stress  matrix 

KM  -  compute  element  mass  matrix 

KDS  -  not  used 

KDV  -  not  used 

KN  -  compute  element  incremental  stiffness  matrix 
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1.  Subroutine  Name:  CC21 

2.  Purpose:  To  assemble  a  submatrix  into  an  assembled  matrix 

3.  Equations  and  Procedures:  None 

4 .  Input  Arguments : 

K  :  Control  on  positioning  of  elements  for  assembly 
NX  :  Constants  from  PLUG1 
C  :  elements  of  input  matrix 

5.  Output  Arguments: 

C21  -  elements  of  the  expanded  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  (K,  NI,  C,  C21) 

8.  Input  Tapes:  None 

9.  Output:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  NI(8,10),  C(l),  C21(105)  and  total 
storage  is  (l45)10 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  MABC 

2.  Purpose:  To  evaluate  the  triple  product  of 
m  =  [A]  [B]  [c] 

3.  Equations  and  Procedures: 

a.  Each  row  of  the  [A]  matrix  is  multiplied  by  the  corres¬ 
ponding  column  of  the  [B]  matrix  and  stored  in  the 

[AM]  matrix  by  column. 

b.  Then  each  row  of  the  [AM]  matrix  is  multiplied  by  the 
corresponding  column  of  the  [c]  matrix  and  the  final 
product  stored  in  the  [AN]  matrix  by  column. 

4.  Input  Arguments' 

A: 

B: 

C: 

AM: 

N: 

L: 

K: 

M: 

Nl,  Ml; 

N2,  M2; 

N3,  M3: 

3 .  Output  Arguments : 

AN;  Elements  of  triple  product  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(A,  B,  C,  AN,  AM,  N,  L,  K,  M,  Nl,  Ml,  N2,  M2,  N3,  M3) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  40Al6  Bytes. 


elements  of  [A|  matrix 
elements  of  [Bj  matrix 
elements  of  [CJ  matrix 
working  storage 

number  of  rows  in  [A*  matrix  border) 
number  of  rows  in  JB  matrix  (order) 
number  of  rows  in  [c] matrix  (order) 
number  of  columns  in  K3  matrix (order) 
dimension  of  [A]  matrix 
dimension  of  AJ  matrix 
dimension  of  [c]  matrix 
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12.  Subroutine  User:  general  subroutine  used  by  many  other 
subroutines 

13.  Subroutines  Required:  None 

14.  Remarks:  Standard  matrix  multiplication  routine;  but 
caution  must  be  exercised  when  the  dimensions  and  orders 
of  input  and  output  matrices  are  different 


1*  Subroutine  Name:  NEWFT 


2.  Purpose:  Generate  membrane  and  flexural  thermal  loads 

for  quadrilateral  thin  shell  in  local  coordinates 

3.  Equations  and  Procedures: 

!BCT]  =  LfO -1  [CT3 

j3MT]  =  D3C03  {TEMM} 

CBFTj  =  [BCU  (TEMF} 

where  [PO  and  [CT]  are  geometric  matrices  of  local 
coordinates 

{TEMM}  =  {TEL  (1,1)}  membrane  temperatures 

{TEMF}  =  {TEL  (1,2)  }•  flexural  temperatures 

4 .  Input  Arguments : 


DELTM 

DELTF 

TEL 

RIB 

R2B 

R3B 

R43 

IPRINT 

TZ 


Average  membrane  temperature 
Average  flexure  temperature 
Temperature  array  of  element 
Local  X  coordinate  of  node  1 

"  Y  "  of  node  2 

"  X  "  of  node  3 

"  Y  "  of  node  4 

Print  option 

Initial  membrane  temperature 


5 .  Output  Arguments : 


BMT  :  Membrane  thermal  load  in  local  coordinates 

BFT  :  Flexural  thermal  load  in  local  coordinates 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

(DELTM,  DELTF,  TEL,  RIB,  R2B,  R3B,  R4B,  BMT,  BFT,  IPRINT, 
TZ) 

8 .  Input  Tapes :  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 
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11.  Storage  Required: 

F(3,3),  BCT(3,4),  ct(3,4),  BMT(4,1).  BFT(4,1),  temm(4), 
TEMP  (4),  TEL(12,2),  R1B(1),  R2B(1),  R3B(1),  R4B(1) 

Total  Storage  is  (22710). 

12.  Subroutine  User:  PLUG1 

13.  Subroutines  required:  MINV,  MAB 

14.  Remarks:  a.  If  print  option  equals  -1,  intermediate 

computations  are  printed  out. 

b.  The  membrane  or  flexural  contribution  is 
by  passed  if  the  respective  thickness  is  0. 
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1.  Subroutine  Name:  CDELPQ 

2.  Purpose:  To  compute  the  integrals  from  equations  in 
documentation  for  PLUG1  in  Volume  I. 

3.  Equations  and  Procedures: 

DELPQ*5  =  Cx,  Y,  where  p  =  0,1,2.  3,4 

J  J  q  =  0,1,2, 3,4 

j  =  1,2,3, 4 
C  =  constant 

4.  Input  Arguments: 

AJ  -  x  distance  from  centroid  to  respecti^/e  node  point 
BJ  -  y  distance  from  centroid  to  respective  node  point 

5.  Output  Arguments: 

DELPQ  -  table  of  integrals  for  the  4  zones  of  the  quadri¬ 
lateral 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  CDELPQ  (AJ,  BJ,  DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

DELPQ  (4,5,5) 

AJ  (4) • 

BJ  (4) 

Total  Storage  is  (24l)10. 

12.  Subroutine  User:  PLUG1 

13.  Subroutines  Required:  CHDEL1 

14.  Remarks:  None 
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1.  Subroutine  Name:  CHDEL1 

2.  Purpose:  To  rearrange  the  integrals  generated  by  CDELPQ 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  DELPQ  -  integrals  generated  by  CDELPQ 
51  Output  Arguments:  DELPQ  -  rearranged  integrals 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  CHDELD1  (DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  DELPQ  (4,5*5) 

Total  Storage  is  (70) 10* 

12.  Subroutine  User:  CDELPQ 

13-  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Sub r o- 1 tine  Name:  P1PRTA 

2.  Purpose:  Print  variables  generated  by  PLUG1,  if  IPRINT 
equals  -1. 

3.  Equations  and  Procedures:  Not  applicable 


4.  Input  Arguments: 


EX,  EY 

MUXY 

GXY 

GAMMA 

ALPHAX,  ALFHAY 

TP,  TM 
RZB 

R24 

LAMDA 

R24BP 

THETA 

E 

TPRIME 

NL 

SINAL,  C0SAL 

SINA,  C0SA 
SING,  C0SG 
EM 

ALFHM 

C00RDL 

DELPQ 

ALPHG 

EG 

TES 

TW 


:  Youngs  modulus  in  X  and  Y  directions 
respectively 
:  Poisson's  Ratio 
:  Shear  modulus 
:  Material  angle 

:  Thermal  coefficients  of  expansion  in 
X  and  Y  directions 
:  Flexural  and  membrane  thickness 
:  Vector  normal  to  plane  of  quadrilateral 
element 

:  deviation  of  local  coordinates  between 
points  2  and  4  of  the  quadrilateral 
:  Coefficient  of  normal  vector  so  that 
element  lies  in  a  plane 
:  Sum  of  the  inplane  vector  and  normal 
vector 

:  Angle  for  calculating  centroid  of  element 
:  Column  vector  colinear  with  local 
geometric  X,  Y  and  Z  system 
:  Transformation  matrix 
;  Node  point  numbers 
:  Sine  and  cosine  of  oblique  coordinat 
system 

:  Sine  and  cosine  for  stress  angles 
:  Sine  and  cosine  of  material  angle 
:  Coefficient  matrix  utilizing  Hook1 s  Law 
:  Matrix  containing  coefficients  of  thermal 
expansion 

:  local  coordinates 

:  table  of  integrals  for  the  4  zones  of  the 
quadrilateral 
:  Dummy 

:  E  matrix  transformed 

:  Strain  transformation  matrix 
:  Displacement  fun c ■cion  transformation 
matrix 


H.  Output  Arguments:  None 


6.  Error  Returns:  None 
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Calling  Sequence: 

CALL  P1PRTA  (EX,  EY,  MUXY,  GXY,  GAMMA,  ALPHAX,  ALPHAY, 
TF,  TM,  RZB,  R24B,  LAMDA,  R24BP,  R0B, 

THETA,  E,  T PRIME,  NL,  #INAL,  C0SAL,  SINA, 
C0SA,  SING,  C0SG,  EM,  ALPHM,  C00RDL,  DELPQ, 
ALPHG,  EG,  TES,  TW) 

Input  Tapes:  None 

Output  Tapes :  None 

Scratch  Tapes :  None 

Storage  Required:  Total  Storage  required  is  D381g  Bytes. 

Subroutine  User:  PLUG1 

Subroutines  Required:  None 

Remarks :  None 


1 .  Subroutine  Name  ?  CK11 


2.  Purpose:  To  generate  the  membrane  stiffness  for  PLUG1, 
quadrilateral  thin  shell  element 


3 .  Equations  am 
operations  ta 
matrix : 


:odures:  The  following  sequence  of 
lace  to  formulate  the  membrane  stiffness 


Call  CT11  to  formulate  the  membrane  displacement 
coordinate  transformation  as  TAO . 

Call  MATI60  to  invert  the  above  matrix . 

Call  CTOGM  to  form  the  transformation  from  oblique  to 
geometric  coordinates  as  TOGM . 

Generate  the  transformation  matrix  from  geometric  to 
reference  system  coordinates  (TGRM)  by  calling  CTGRM . 

If  grid  point  axes  transformations  to  another  system 
other  than  global  are  to  formulated,  call  AXTRA2  to 
generate  the  new  TGRM  matrix. 

Generate  the  displacement  function  transformation  as  TU. 
Call  BCB  to  form  the  product 
[TU]T  [EG]  [TU]  =  [EO] 

This  matrix  is  then  multiplied  by  the  constant  T  x  SINA 
and  renamed  the  JPQ  matrix. 

Generate  the  membrane  stiffness  (C  matrix)  by  calling 
CC1 .  The  C  matrix  is  then  expanded  by  CC21  and  C21 . 

The  transformation  matrix  TAO  is  expanded  as  TAOM. 

Call  BCB  to  form  the  following  products; 


QK110] 


[TAOM]  1  [Cll]  [TAOM] 


(b)  [K11G]  =  [TOGM]  1  [KUO]  [TOGMj 

(c)  [K21S]  =  [TGRM]  T  &Q1Q]  [TGRM] 

The  final  product, [K21!$],  is  the  desired  membrane 
stiffness  matrix. 


4.  Input  Arguments: 


NDIR 

NDEG 

ICONT 

GPAXEL 
NN0 
NL 
EEZ 
AJ,  BJ 


:  Number  of  directions  of  movement  for  each 
grid  point,  control  needed  for  AXTRA2 
:  Number  of  degrees  of  freedom  for  each  grid 
point,  control  needed  for  AXTRA2 
:  Control  set  equal  to  1  if  grid  point  axes 
transformations  are  required  from. input  data 
:  The  grid  point  axis  transformation  matrix 
:  Number  of  grid  points  (8)  describing  the  element 
:  Array  containing  the  grid  point  numbers 
:  :'nput  on  element  data  card  for  eccentricity 
:  Local  X  and  Y  coordinates  of  the  element 
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SIMA,  COS A  :  Sine  and  cosine  of  the  angle  defined  by  the 
diagonals  of  the  element  between  grid  points 
1  and  2 

TPRIME  :  Transformation  matrix 

IPRINT  :  Print  option 

T  :  Membrane  thickness 

LT1  :  Control  set  equal  to  1  when  membrane  thickness 

is  not  zero 

EG  :  Material  properties  matrix 

DELPQ  :  Table  of  integrals 

NI  :  Array  for  assembly  purposes 

5.  Output  Artuments: 

K21S  :  Membrane  stiffness  matrix 

EO  :  Material  properties  matrix 

TU  \ 

TAO 

TAOM  )  :  Transformation  matrices  defined  in  item  3  above 

TOGM 

TGRM  ) 

K110  \ 

K11G  I 

Cll  )  :  Intermediate  matrices  formed  and  defined  in 

JPQ  item  3  above  . 

C21  J 

6  .  Error  Returns :  None 
7.  Calling  Sequence: 

CALL  CK11,  (K21S,  NDIR,  NDEG,  ICONT,  GPAXEL,  NNO,  NL,  EEZ, 

AJ,  BJ,  SINA,  COSA,  TPRIME,  IPRINT,  I,  NI,  LT1,  EG, 
DELPQ,  TAO,  TAOM,  TOGM,  TGRM,  K110,  K11G,  Cll,  JPQ, 

C21,  TU,  EO,  TF$,  TMS,  C) 


8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

11 . 

Storage  Required: 

NL  (8),  GPAXEL  (3,  3,  12),  AJ  (1),  BJ  (1),  TAO  (8,  8), 
TPRIME  (3,3),  EG  (10),  EO  (10),  C  (55),  C21  (105),  NI  (8, 
10),  TU  (3,  4),  K110  (136),  K11G  (210),  Cll  (105),  TAOM 
(16,  16)  ,  TOGM  (16,  20),  TGRM  (20,  43.)  JPQ  (10),  TGRA 
(16,  48),  DELPQ  (4.  5,  5),  TFS  (16,  48),  TMS  (16,  48) 
Total  Storage  is  (464) 
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12.  Subroutine.  User :  PLUG1 

13.  Subroutines  Required: 

CT11  CTOGM  AXTRA2 

MATI60  CTGRM  BCB 

l4  Remarks :  None 


CC1 

CC21 


1.  Subroutine  Name:  CT11 

2.  Purpose:  To  formulate  the  membrane  displacement  coordinate 
transformation  as  [TA0] 

3.  Equations  and  Procedures:  The  formulation  is  given  in  the 
documentation  for  PLUG1  in  Volume  I. 

4  .  Input  Arguments : 

AJ  :  Local  X  coordinates 

BJ  :  Local  Y  coordinates 

IPRINT  :  Print  indicator 

5  .  Output  Arguments : 

TA0  :  Transformation  matrix 

6  .  Error  Returns :  None 

7.  Calling  Sequence:  CALL  CT11  (AJ,  BJ,  TA0,  IPRINT) 

8 .  Input  Tapes :  None 

9 .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  AJ  (1),  BJ  (1),  TA0  (8,8) 

Total  Storage  is  (227)  1Q. 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14 .  Remarks:  If  IPRINT  equals  -1,  the  TA 0  matrix  is  printed. 
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1.  Subroutine  Name:  MAT160 

2.  Purpose:  Invert  the  TA#  matrix 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  N  -  order  of  matrix  to  be  inverted 

A  -  to  be  inverted 

5.  Output  Arguments:  ISING  -  error  messages 

DETR  -  value  of  determinant 
A  -  contains  elements  of  the  inverted 
matrix 

6.  Error  Returns:  ISING  =  0  No  error 

ISING  =  1  Singular  matrix 

7.  Calling  Sequence: 

Call  MATl60(N.  A,  ISING,  DETR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  Storage  required  is  6^^  Bytes. 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  CT0GM 

2.  Purpose:  To  formulate  the  transformation  matrix  from 
oblique  to  geometric  coordinates 

3.  Equations  and  Procedures:  See  writeup  for  PLUG1 
4  .  Input  Arguments : 

C0SA  :  Cosine  and  sine  of  the  angle  defined  by  the 
SINA  diagonals  of  the  element  between  grid  points 
1  and  2 

5.  Output  'rguments: 

T0GM  :  transformation  matrix 

6  .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CT0GM  (C0SA,  $INA,  T0GM) 

8  .  Input  tapes :  None 

9.  Output  tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

T0GM  (16,20) 

Total  Storage  (67)  10* 

12.  Subroutine  User:  CK11 

13  .  Subroutines  Required :  None 
14 .  Remarks :  None 
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1 .  Subroutine  Name :  CTGRM 

2.  Purpose:  Formulate  the  transformation  from  geometric  to 
reference  system  coordinates 

3.  Equations  and  Procedures:  See  writeup  of  PLUG1, 

4.  Input  Arguments: 

NL  :  Node  point  numbers 

EEZ  :  Eccentricity  factor 

TRIME  :  Transformation  matrix  to  be  expanded 

5  .  Output  Arguments : 

TGRM  :  Transformation  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CTGRM  (NL,  EEZ,  TPRIME,  TGRM) 

8 .  Input  tapes :  None 

9.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  Required: 

NL  (1),  TPRIME  (3,3),  TGRM  (20,48), 

Total  Storage  is  (275) 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


1.  Subroutine  Name:  CC1 

2.  Purpose:  Generate  the  bottom  half  of  the  membrane 
contribution  to  the  element  stiffness  matrix  for  the 
quadrilateral  element 

3.  Equations  and  Procedures:  Contained  in  documentation 
for  quadrilateral  element  in  Volume  X. 

4.  Input  Arguments: 

KI  :  Control  for  appropriate  computation 
JPQ  :  Matrix  containing  material  properties 
DELPQ  :  Table  of  integrals 

5.  Output  Arguments: 

C  :  Membrane  contribution  to  stiffness  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  CC1  (KI,  JPQ,  DELPQ,  C) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

DELPQ  (4,5,5),  C  (55),  JPQ  (10) 

Total  Storage  is  (666)^, 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  CMMASS 

2.  Purpose:  Generate  the  membrane  contribution  to  the 
mass  matrix  in  local  coordinates 

3.  Equations  and  Procedures:  Contained  in  documentation 
for  the  quadrilateral  element  in  Volume  I 

4.  Input  Arguments: 

T  :  Membrane  thickness 
D00  :  Area  of  each  zone  of  quadrilateral 

SINA  :  Sine  of  angle  defined  by  points  1  and  2  and 
the  diagonal  of  the  quadrilateral 
DENS  :  Density  of  the  plate  material 

5.  Output  Arguments: 

AMS  :  Membrane  mass  contribution 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  CMMASS  (T,  D00,  SINA,  DENS,  AMS) 

8.  Input  Tapes;  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  2CA1g  Bytes. 

12.  Subroutine  User:  PLUG1 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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Subroutine  Name:  CSTM 


Purpose:  Evaluate  the  membrane  stress  matrix  in  local 
coordinates  for  the  quarilateral  element 

Equations  and  Procedures:  The  following  sequence  of  opera¬ 
tions  is  performed: 

(1)  Call  CDM  to  formulate  the  membrane  displacement 
derivative  matrix  as  [DEM]  . 

(2)  Call  MAB  to  form  [AM.41  =  [DFM]  [TMS] 

(3)  Call  MAB  to  form  [AM 9  =  [TU]  [AM4] 

(4)  Call  MSB  to  form  [AM6]  =  [EG  j  LAM^ 

(5)  Call  MAB  to  form  [AM5]  *=  [TES]  IAM6J 

(6)  Multiply  [AM5j  by  the  thickness  and  store  in  appro¬ 
priate  location  of  the  stress  matrix . 

Input  Arguments: 

RIB) 

>  :  Local  coordinates 

r4b) 

TU  :  Displacement  function  transformation 
EG  :  Material  properties  matrix 
TES  :  Strain  displacement  matrix 
T  :  Membrane  thickness 

TMS  :  Transformation  matrix  to  system  coordinates 
Output  Arguments: 

S  :  Stress  matrix  in  system  coordinates . 

Error  Returns :  None 


Calling  Sequence: 

CALL  C$TM  (RIB,  R2B,  R3B,  R4B,  TU,  EG,  TE$,  T,  S,  TFS, 
TMS,  DFM,  AM4,  AM5,  AM6) 

Input  Tapes:  None 

Output  Tapes :  None 

Scratch  Tapes:  None 


Storage  Required: 

AM4  (4,  48),  DFM  (4,l6) ,  TU 
S  (40,48),  AM5  (3,48),  AM6  ( 
*  s  (1T6)10. 


Total  Storage  is 


ft 


EG  (10),  TES  (3,3), 

TFS  (16,48),  TMS  (16,48), 


PLUG1 


12.  Subroutine  User: 

13.  Subroutines  Required:  MAB,  MSB 

14 .  Remarks :  None 


Subroutine  Name :  CDM 

Purpose:  To  evaluate  membrane  displacement  derivative 

matrix  for  the  4  zones  of  the  quadrilateral 

Equations  and  Procedures: 

See  Writeup  on  PLUG  1  for  equations 

Input  Arguments :  - 

IZ  -  constant  for  zone  to  be  evaluated 

RIB,  R2B,  R3B,  r4b  -  local  coordinates  of  element 

Output  Arguments; 

DFM  -  membrane  displacement  displacement  matrix 
Error  returns:  None 
Calling  Sequence; 

Call  CDM  (IZ,  RIB,  R2B,  R3B,  R4B,  DFM) 

Input  Tapes:  None 
Output  Tapes :  None 
Scratch  tapes :  None 
Storage  required : 

RIB  (1),  R2B  (1),  R3B  (1),  R4B  (1),  DFM  (4,  16) 
Total  Storage  is  (25T)10 

Subroutine  User;  CSTM 

Subroutines  Required :  None 


Remarks :  None 


1 .  Subroutine  Name :  CFMTS 


2.  Purpose:  To  evaluate  the  membrane  thermal  load  and  thermal 
stress  matrices 

3  .  Equations  and  Procedures : 

(1)  The  thermal  load  is  computed  as  follows; 


{AMI} 

=  [EM]  {ALPHM} 

{  AM2} 

=  [tes]t{ami> 

(IT  } 

«  [tu]  t{amz} 

{IT} 

=  T  jsiNA){lT}  ,  then 

Call  CFM  to  formulate  the  thermal  load  FFB  then 

{FT}  =  [TMS]  t  {fpb} 

(2)  The  thermal  stress  matrix  is  computed  as  follows: 

{AM2}  =  DELTM  (T)  {AM2} 

{{&LM}  =  [TESS]  {AM2} 

The  SZI24  array  is  assembled  into  #ZALEL* 

4.  Input  Arguments: 

EM  :  Material  properties  matrix 

ALPHM  :  Coefficients  of  thermal  expansion 

TE#  :  Strain  transformation  matrix 

TU  :  Displacement  function  transformation 

T  :  Membrane  plate  thickness 

#INA  :  Sine  of  angle  determined  by  the  intersection  of 
diagonals  and  grid  points  1  and  2 
DELPQ  :  Table  of  integrals  for  the  4  zones  of  the  quadri 
lateral 

BMT  :  Transformation  matrix 

DELTM  :  Membrane  temperature 

TE##  :  Stress  transformation 

TM#  :  Transformation  to  global  system 

WK1  :  Array  containing  DELPQ 

5 .  Output  Arguments : 

SZALEL  :  Thermal  stress  matrix 

FT  :  Thermal  load  matrix 

AM4  \ 

AM7  )  :  Working  arrays 

FPB  j 


6.  Error  Results:  None 


7.  Calling  Sequence:  (EM,  ALPHM,  TES,  TU,  T,  SINA.  DELPQ, 
BMT,  DELTM,  TESS,  SZALEL,  FT,  TPS,  TMS,  FPB,  AM4,  AM?, 
WK1) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 


10.  Scratch  Tapes:  None 


;e:  EM  (1),  ALPHM  (1),  TES  (3,3),  TU  (3,4),  FPB  (l6), 

,  DELPQ,  (4,5,5),  FT  (1),  AMI  (3;,  AM2  (3),  AM4  (4,48), 

^  dm  »,  /  r>\  d  / 1  '  rPC'd'c/  1 1  Q\  'fira'  ( 1  &  2lft\ 


11  .  Storage 

IT  (4),  *  j.  \^-/,  «*■*■*•  w/  >  \ .■  »• _ 

AN?  2,48),  SfZLM  (3),  SZALEL  (1),  TES#  (3,3),  TF#  (lb, 48), 
•IMS’  (16,48),  WK1  (100) 

Total  Storages  is  (195)^0* 


12.  Subroutine  User:  PLUG1 

13.  Subroutines  Required:  MAB,  MATB,  CFMF 

14.  Remarks:  None 
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1.  Subroutine  Name:  CFMV 

2.  Purpose:  To  generate  the  membrane  thermal  load  matrix 
in  local  coordinates 

3.  Equations  and  Procedures:  Formulations  are  given  in  the 
documentation  on  the  quadrilateral  element  in  Volume  I. 

4  .  Input  Arguments : 

DELC,  :  Table  of  integrals  for  4  zones  of  quadrilateral 
DELPQ 

IT  :  Thermal  vector 

BMT  :  Transformation  matrix 

5.  Output  Arguments: 

FPB1  :  Thermal  vector 

6  .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CFMV  (DELC,  FPB1,  IT,  BMT,  DELPQ) 

8 .  Input  Tapes :  None 

9.  Output  Tapes:  None 

1C.  Scratch  Tapes:  None 

11.  Storage:  DELC  (4,5,5),  FPB1  (16),  IT  (4),  BMT  (4),  FPB  (16), 
DELPQ  (4,5,5) 

Total  Storage  is  (310) 

12.  Subroutine  User:  CFMTS 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


Subroutine  Name:  PRT1 

2.  Purpose :  If  IPRINT  equals  -1,  intermediate  matrices 

generated  are  printed  out 

3.  Equations  and  Procedures:  not  applicable 

4.  Input  Argument: 

LT  -  Control  on  either  membrane  or  flexural  output 

TU,  TA0,  TGAMB,  T0GBM,  TGRBM  -  transformation  matrices 

FP,  FT,  CM,  EO,  IJPQ,  C21,  K210,  K21G  -  intermediate 
element  matrices 

KK  -  Control  for  dynamics  print 

5.  Output  Arguments:  None 

6.  Error  Returns :  None 

7.  Calling  Sequence : 

CALL  PRT  (LT,  TU,  EO,  IJPQ,  C21,  K210,  K21G,  TA0, 

TGAMB,  T0GEM,  TGRBM,  KM,  CM,  FP,  FT) 

8.  Inpu  tapes :  None 

9.  Output  tapes :  None 

10.  Scratch  tapes :  None 

11.  Storage:  E0(10),  IJPQ(IO),  C21(105),  K210(136), 

K21G(210(,  TA0(8,8),  TU(3,4),  TGAMB(l6, 16), 
T0GBM(l6, 20),  TGRBM (20, 48),  CM(1),  FP(1),  ET(1) 

Total  Storage  is  (538)10 

12.  Subroutine  User  :  PLUG  1 

13.  Subroutine  Required :  SYMPRT 

14.  Remarks  :  Matrices  above  defined  in  other  writeups. 
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1.  Subroutine  Name:  CK22 

2.  Purpose:  Formulate  the  flexural  stiffness  matrix  in 
local  coordinates  . 


3 .  Equation  and  Procedures : 

(1)  The  following  operations  take  place  to  formulate  the 
transfer  motion  matrices 

(a)  Calls  CTGB  to  evaluate  the  transformation  tc 
geometric  coordinates  as  TGAMB 

Cb)  Inverts  TGAMB 

(c)  Calls  CT0GB  to  formulate  the  transformation  from 
oblique  to  geometric  coordinates  as  T0GB 

(d)  Calls  CTGRB  to  formulate  the  transformation  from 
geometric  to  reference  system  coordinates  as 
TGRBM 

(e)  If  grid  point  axes  transformations  are  used,  call 
AXTRA2  to  revise  the  flexural  transformation  TGRB . 

(2)  The  flexural  stiffness  is  then  obtained  by: 

(a.)  Formulating  the  rigidity  as  IPQ 

(b)  Evaluating  the  [C] matrix  for  each  zone  by  calling 
CC2 

(c)  Assembling.the [C] matrix  for  each  zone  into  C21  by 
calling  CC21 . 

(d)  Forming  the  following  products: 

[K22<tf]  =  [TGAMB]  T[C22][TGAMB] 

[K22G]  =  [T0GB]T[K22gfl[T0GB] 

|K21$]  =  [TGRB]  T  [K22G]  [TGRB] 

Where  [K21$0  is  the  desired  flexural  stiffness-matrix 


4  .  Input  Arguments : 


K21$ 

IA$$Y 

NL 

NDIR 

NDEG 

IC0NT 

GPAXEL 

NNO 

AJjBJ 


Input  Stiffness  matrix  from  membrane  contribution 

control  to  add  membrane  plus  flexural  stiffness 

Node  points  of  element 

Number  of  directions 

Number  of  degrees  of  movement 

Control  on  grid  point  axis  transformations 

Grid  point  axis  transformations 

Number  of  node  points  being  transformed 

Local  coordinates 
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TMS 

TF$ 

AMATT 

TRA0BQ 

TGN 

TPRIME 

$INA 

COSA 

LT2 

EG 

T 

NI 

DELPQ 


Transformation  matrices 


Sine  and  cosine  of  angle  defined  by  intersection 

of  diagonals  and  points  1  and  2 

Control  on  flexural  computation 

Modified  materials  property  matrix 

Flexural  plate  thickness 

Array  for  assembly  purposes 

Table  of  integrals  for  4  zones  of  quadrilateral 


5 .  Output  Arguments 


K2l$ 
TGAMB  \ 
T0GB  l 
TGRB  ( 
TGRBM  J 

C  ) 

EO 

K220  i 
K226  ) 

C22  I 
IPQ  I 
C21  ' 


:  Flexural  contribution  to  stiffness  matrix 
:  Transformation  matrices 

:  Intermediate  matrices 


6  .  Error  Returns :  None 


7.  Calling  Sequence: 

CALL  CK22  (K21S,  I ASSY,  NL,  NDIR,  NDEG,  IC0NT,  GPAXEL, 

NNO,  AJ,  BJ,  AMAT,  TRA0BQ,  $INA,  C0SA,  TGN,  TPRIME, 
LT2,  TW,  EG,  T,  NI,  DELPQ,  TGAMB,  T0GB,  TGRB, 

K220,  K22G,  C22,  IPQ,  C21,  TGRMB,  EO,  TF$,  TMS,  C) 

8 .  Input  tapes :  None 
9  .  Output  tapes :  None 


10.  Scratch  tapes:  None 


11.  Storage: 

AJ  (1),  BJ(l) ,  AMAT  (3,4),  TRA0BQ  (3,3),  TGN  (4,2,2), 
TPRIME  (3,3),  TW  (3,3),  EG  (10),  EO  (10),  NI  (8,  10), 
DELPQ  (4,5,5),  TGAMB  (16,16) ,  C  (28),  C21  (105), 
TGRBM  (20,  48)  K220  (136).  K22G  (210),  C22  (105), 

T0GB  (16,20),  TGRB  (20,  48),  IPQ  (10),  TF$  (16,  48) 
TM$  (16,  48) 
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Total  Storage  is  (269)  10’ 

Subroutine  user :  PLUG! 

Subroutines  required  are: 

CTGB,  MATI70,  CT0GB,  CTGRB,  AXTRA2,  BCB,  CC2,  CC21 . 
Remarks : 

All  formulations  are  given  in  the  report  for  the 
quadrilateral  thin  shell  element. 


Subroutine  Name:  CTGB 


k 


£ 


M 


i 


I 


I 


I 


I 


1 . 


2.  Purpose:  To  formulate  the  flexural  transformation  matrix 
from  local  to  geometric  coordinates  . 

3.  Equations  and  Procedures: 


(3) 

(*) 


The  TGB  matrix  is  formulated  from  local  coordinates 
Using  elements  from  AMAT,  the  lengths  of  the  sides 
of  each  zone  are  computed  and  assembled  in  the  TGN 
matrix 

The  T0N  matrix  is  evaluated  for  the  4  zones  by  first 
storing  fTRA0BQ,]  into  [Tgta]  and  then  solving  [T0N]  = 

|T0G]  [TGN) 

The  TGB  matrix  is  then  evaluated  for  the  4  zones  as 
(TGB]  -  [T0N]{WX}  +  [T0N]  {WY> 

Where  fWX>  and (WY) are  arrays  of  local  coordinate  values 
for  the  respective  zones  . 


4  .  Input  Variables : 


AJ,  BJ  :  Local  coordinates 

AMAT  :  Transformation  to  local  coordinates 

TRA0BQ  :  Transformation  from  loca]  to  oblique  coordinates 

5 .  Output  Variables 

TGAMB  \ 

TGB  )  :  Transformation  matrices 

TGN  j 

6  .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CTGB  (AJ,  SJ,  AMAT,  TRA0BQ,  TGAMB,  TGB,  TGN) 

8 .  Input  tapes :  None 

9  .  Output  tapes :  None 

10  .  Scratch  tapes :  None 

11 .  Storage : 

TgfN  (4,2,2),  TGB  (16,  16) ,  TOG  (2,2),  XD  (4) ,  YD  (4), 

WX  (16),  WY  (16),  T,  (4),  TGAMB  (16,  16) ,  AJ  (1)  ,  BJ  (1), 
AMAT  (3,4),  TGN  (4,2,2),  TRA0BQ  (3,3) 

Total  storage  is  (68l)10# 

12.  Subroutine  User:  CK22 
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13.  Subroutines  Called:  None 

14 .  Remarks : 

All  formulations  are  given  in  the  report  on  the 
quadrilateral  thin  shell  element. 
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1.  Subroutine  Name:  MATI70 

2.  Purpose:  To  invert  the  [TGAMB]  matrix 

3.  Equations:  standard  inverse  technique  where  inverted 
matrix  is  stored  hack  on  top  of  itself. 

4.  Input  Arguments: 

N  -  order  of  matrix  =  1 6 
A  -  matrix  to  be  inverted 

5.  Output  Arguments 

A  -  inverted  matrix 

I$ING  -  error  return 

DETR  -  value  of  determinant 

6.  Error  Return: 

IF  I$ING  =  1,  singular  matrix 

7.  Calling  Sequence:  CALL  MATI70  (N,  A,  I$ING,  DETR) 

8.  Input  Tapes:  None 

9.  Output  Tapes;  None 

10.  Scratch  Tapes:  None 

11.  Storage: 

Total  Storage  required  is  Bytes. 

12.  Subroutine  User:  CK22 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  CT0GB 

2.  Purpose:  formulate  the  flexural  transformation  matrix 

from  oblique  to  geometric  coordinates 

3.  Equations  and  procedures:  The  formulation  is  given  in  the 
report  on  the  quadrilateral  plate  . 

4 .  Input  Arguments : 

SINA,  C0SA  -  sine  and  cosine  of  the  angle  defined  by  the 

diagonals  and  points  1  and  2 

TGN  -  Transformation  matrix 

5 .  Output  Arguments : 

T0GB  -  the  required  transformation  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  CT0GB  (SINA,  C0SA,  TGN,  T0GB) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  TGN(4,2,2),  T0GB(l6.2o) 

Total  Storage  is  {T°)10 

12.  Subroutine  User:  CK22 

13.  Subroutines  Required:  None 

14.  Remarks  :  None 
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1.  Subroutine  Name:  CTGRB 

2.  Purpose:  formulate  the  flexural  transformation  matrix 
from  geometric  to  reference  system  coordinates. 

3.  Equations  and  Procedures: 

(1)  Elements  of  the  TPRIME  matrix  are  first  assembled  into 
their  respective  positions 

(2)  If  any  midpoints  arc-  suooressed,  the  contribution  of 
the  midpoints  is  redistributed  to  the  respective 
comer  points 


4.  Input  Arguments: 

NL  -  node  point  numbers 

TGN  -  transformation  matrix  for  midpoints 

TPRIME  -  transformation  matrix  to  local  coordinates 

5 .  Output  Arguments : 

TGRB,  TGREM  -  transformation  from  geometric  to  reference 
system  coordinates 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  CTGRB (NL,  TGN,  TPRIME,  TGRBM,  TGRB) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  NL(1),  TGN(4,2,2),  AI(4},  BI(4),  TPRIME(3,3) 

TGRB (20,48),  TGRBM (20, 48) 

Total  storage  is  (345)10 

12.  Subroutine  User:  CK22 

13.  Subroutines  Required:  None 

14.  Remarks:  Formulation  is  given  in  report  on  Quadrilateral 

Plate 
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1 .  Subroutine  Name :  CC2 

2.  Purpose:  Form  for  the.  4  zones  of  the  quadrilateral  the 
flexural  contributions  to  an  intermediate  matrix  C  . 

3 .  Equations  and  Procedures :  The  formulation  is  given  in 
report  on  quadrilateral  thin  shell  element. 

4.  Input  Arguments: 

K  !  Control  on  zone  contribution 

IPQ  :  Rigidity  matrix 

DELPQ  :  Table  of  integrals  for  the  4  zones  of  the  quadri¬ 
lateral 

5  •  Output  Arguments : 

C  :  Elements  of  the  intermediate  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CC2  (K,  IPQ,  DELPQ,  C) 

i 

8  .  Input  tapes :  None 

9.  Output  tapes:  None- 

10  .  Scratch  Tapes :  None 

11 .  Storage : 

Total  Storage  required  is  5B6^g  Bytes. 

12.  Subroutine  User:  CK22 

13.  Subroutine  Required:  None 

14 .  Remarks :  None 


297 


1.  Subroutine  Name:  CFP 

2.  Purpose:  Formulate  the  pressure  load  for  the  quadrilat¬ 
eral  plate  in  reference  system  coordinates 

3.  Equations  and  Procedures: 

Call  CFPB  to  generate  the  pressure  load  vector  in  refer¬ 
ence  system  coordinates  as  FPB  as  defined  by 

{FP}  =  [TF$]  T  {FPB}  . 

4.  Input  Arguments: 

DELPQ  :  Table  of  integrals  for  the  4  zones  of  the 
quadrilateral 

P  :  Pressures  at  node  points 

SINA  :  Sine  of  angle  defined  by  intersection  of 

diagonals  end  points  1  and  2  of  the  element 
TFB  :  Flexural  transformation  matrix 

5.  Output  Arguments: 

FP  :  Pressure  load  vector  in  reference  system 
coordinates 

FPB  :  Pressure  load  in  local  system. 

6 .  Error  Returns :  None 

7.  Calling  Sequence: 

Call  CFP  (DELPQ,  P,  gINA,  FP,  TFS,  TMS,  FPB) 

8.  Input  Tapes;  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11 .  Storage : 

DELPQ  (4,5,5),  FP  (4,8),  FPB  (l6),  TFB  (l5,48),  TMS  (16,48) 
Total  Storage  is  (57)10* 

12.  Subroutine  User:  CK22 

13.  Sut routine  Required:  CFPB,  MATB 

14.  Remarks:  The  formulation  is  given  in  the  documentation 
on  the  quadrilateral  element  in  Volume  I. 
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i  .  Subroutine  Name :  CPPB 

2.  Purpose:  Formulate  the  pressure  load  in  local  coordinates 
for  the  quadrilateral  thin  shell  element. 

3.  Equations  and  Procedures:  Formulation  is  given  in  the 
report  on  the  quadrilateral  thin  shell  element. 

4.  Input  Arguments: 

DELPQ  :  Table  of  intergrals  for  the  4  zones  of  the  element 
P  :  Pressure  value. 

SINA  :  Sine  of  angle  defined  by  intersection  of  diagonals 
and  points  1  and  2  of  the  element 

5  .  Output  Arguments : 

FPB  :  Pressure  load  in  local  coordinates 

6  .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CFPB  (  DELPQ,  P,  SINA,  FPB) 

8.  Input  tapes:  None 

9  .  Output  tapes :  None 

10.  Scratch  tapes:  None 

11.  Storage: 

DELPQ  (4,5,5),  FPB  (16) 

Total  Storage  is  (227)10. 

12.  Subroutine  User:  CFP 

13.  Subroutines  required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  CSTF 

2.  Purpose:  To  evaluate  the  flexural  contribution  to 

the  stress  matrix  in  reference  system  coordinates  for  the 
quadrilateral  element . 

3  .  Equations  and  Procedures : 

(1)  Call  CDF  to  evaluate  the  membrane  displacement 
derivative  matrix  DFM . 

(2)  Perform  the  following  operations: 

(a)  [AM^l  =  [DFM]  [TFS] 

(b  [AMbJ  =  [TW  ]  1AM5] 

(c)  hm  =  [EG  ]  (AM6] 

(d)  [AMg  =  [TE$]  [AM5] 

The  AM6  matrix  is  then  assembled  into  the  stress  matrix 
S  . 

(3)  Call  CDX  to  evaluate  the  flexural  derivatives  matrix 
DFM. 

(4)  After  generating  the  G  matrix,  perform  the  following: 

(a)  =  [DFM]  [ TF$] 

(b)  [AMol  =  [TW  ]  [AM5] 

(c)  [AM3  =  [EG]  [AM6] 

(d)  [AMB]  =  [G  ]  [AM5l 

(5)  Evaluate  another  G  matrix  and  call  CDFX  and  CDFY 
to  formulate  the  flexural  derivate  matrix  DFM. 

(6)  Perform  the  following  operations: 

(a)  =  [DFM]  [TR$] 

b)  [mQ  [TW  ]  [AM3 

(c)  [AM3  =  LEG  ]  [AM6] 

(d)  [AMU  =  [G  1  [AM5l 

The  AM7  and  AMB  matrices  are  then  assembled  into  the 
stress  matrix  S . 


4  .  Input  Arguments : 


T 

TW 

TE 

TF$ 

TM$ 

EG 


Flexural  thickness 
Transformation  matrices 
Material  properties  matrix 
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{Local  coordinates 


RIB  ) 

R2B  l 
R3B  ( 

R4B  J 

C0SA,  :Sine  and  cosine  of  angle  defined  by  the  intersection 
SINA  of  the  diagonals  and  points  1  and  2  of  the  element 

5.  Output  Arguments: 

S  {Stress  matrix 
DFM  \ 

AM5  I 

AM6  >  {Intermediate  matrices 

AM7 

AM8  J 

6  .  Error  Returns :  None 


7.  Calling  Sequence: 


CALL  C$TF  (T,  TW,  EG,  TES,  RIB,  R2B,  R3B.  R4B,  C0SA,  SINA, 
S,  TFS,  TMS,  DFM,  AM5,  AM6,  AM7,  AM8) 


8. 

Input  tapes: 

None 

9. 

Output  tapes: 

None 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required: 

RIB 
EG 

AM7  1-,  - 
(16,  43) . 

Total  Storage  is  (446) 


3  ,  R2B  3  ,  R3B  3),  R4b  (3),  DFM  (4,  16) ,  TW  (3,3), 
(10  ,  TES  (3,3) ,  S  (40,  48),  AM5  (3,  48),  AM6  (3,  48) 
(2,  48),  AM8  (2,  48),  G  (2,  3),  TF$  (16,  48),  TMS 


12.  Subroutine  User:  PLUG1 


13.  Subroutines  Required: 

MAB,  MSB,  CDF,  CDFX,  CDFY 

14 .  Remarks : 

The  formulations  are  given  in  the  documentation  on  the 
quadrilateral  element. 
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13.  Subroutines  required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  CDFX 

2.  Purpose:  To  evaluate  the  partial  derivatives  with  respect 
to  x  of  the  flexural  displacement  matrix  for  the  4  zones 
of  the  quadrilateral  element 

3.  Equations  and  Procedures:  Formulation  is  given  in  the 
documentation  on  the  quadrilateral  element. 

4.  Input  Arguments: 

1TE  :  Control  on  constant  (Tl) 

IZ  :  Control  on  zone  computation 

C0SA, :  Sine  and  cosine  of  angle  defined  by  the  intersection 
SINA  of  the  diagonals  and  points  1  and  2  of  the  element . 

5.  Output  Arguments: 

DFM  :  Flexural  derivative  matrix 

6.  Error  returns:  None 

7.  Calling  Sequence: 

CALL  CDFX  (ITE,  C0SA,  SINA,  IZ,  DFM) 

8.  Input  tapes:  None 

9.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  Required:  DFM  (4,  16) 

Total  Storage  is  (176)1Q. 

12.  Subroutine  User:  CSTF 

13.  Subroutines  required:  None 

14 .  Remarks :  None 
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1 .  Subroutine  Name :  CDFY 

2.  Purpose:  To  evaluate  the  partial  derivatives  with  respect 
to  y  of  the  flexural  displacement  derivative  matrix  for  the 
4  zones  of  the  quadrilateral  element 

3.  Equations  and  Procedures;  Formulation  is  given  in  the 
documentation  on  the  quadrilateral  element 

4  .  Input  Arguments : 

IZ  ;  Control  on  zone  computation 

SINA  :  Sine  of  angle  defined  by  the  intersection  of  the 
diagonals  and  points  1  and  2  of  the  element 

5.  Output  Arguments: 

DFM  :  Flexural  derivative  matrix 

6 .  Error  Returns ;  None 

7.  Calling  Sequence: 

CALL  CDFY  (IZ,  SINA,  DFM) 

8.  Input  tapes:  None 

9.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  2E61g  Bytes. 

12.  Subroutine  \  .<er:  CSTF 

13.  Subroutines  required:  None 
14  .  Remarks:  None 
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1.  Subroutine  Name:  CFFTS 

2.  Purpose:  To  evaluate  the  flexural  contribution  to  tne 
thermal  load  and  stress  matrices  for  the  quadrilateral  element. 

3.  Equation  and  Procedures: 

(1)  The  thermal  stress  is  obtained  by: 

(a)  {AMI}  =  [EM]  {ALPHM} 

(b)  {AM2 }  =  CTESp  {AMI} 

(c)  { JT  l  =  ETV/F  {AM2} 

(d)  {AM2}  =  C4  {AM2}  where  C4  is  a  flexural  constant 

(e)  {SZLF}  »  &ESS]  {AM2} 

SZLF  is  assembled  into  the  thermal  stress  matrix 
SZALEL . 

(2)  The  thermal  load  is  obtained  by: 

!a)  Define  a  flexural  constant  C3, 

b)  { JT }  =  C3  x  {JT}, 

c)  Call  CFFV  to  formulate  the  thermal  load  in  local 
system  coordinates  as  {FPB} , 

(d)  Transform  the  thermal  load  to  reference  system 

coordinates  as  [AM3J  =  [TFS]  T  {FPB} , 

{AM 3}  is  assembled  into  the  thermal  load  matrix 
FT. 

4  .  Input  Arguments : 

EM  :  Material  properties  matrix 
ALPHM  :  Thermal  coefficient  matrix 
TMS 
TE$' 

TW 

TE$$  )  ’  Transf,°rmation  matrices 
BMT 

TF$  / 

DELTF  :  Flexural  temperature 
T  :  Flexural  thickness 

SINA  :  Sine  of  angle  defined  by  intersection  of  diagonals 
and  points  1  and  2  of  the  element 
DELPQ  :  Table  of  integrals  for  the  4  zones 

5  .  Output  Arguments : 

SZALEL  :  Thermal  stress  matrix 
FT  :  Thermal  load  matrix 
FPB  \ 

AM3  )  :  Intermediate  matrices 
WK1  J 
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6.  Error  Returns:  None 


7.  Calling  Sequence: 

CALL  CFFTS  (EM,  ALPHM,  TES,  TW,  DELTF ,  T,  TESS ,  SINA, 
DELPQ,  BMT,  SZALEL,  FT,  TFS,  TMS ,  FPB,  AM3,  WK1) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

EM  (10),  ALPHM  (3),  TES  (3,3),  TW  (3,3),  DELPQ  (4,5,5), 

FT  (48),  FPB  (16).  JT  (3),  BMT  (3,1),  SZLF  (3),  SZALEL  (l), 
TESS  (3,3),  AM3  (48),  AMI  (3),  AM2  (3),  TFS  (16,  48), 

TMS  (16,  48),  WK1  (100) 

Total  Storage  is  (222) 

12.  Subroutine  User:  PLUG1 

13.  Subroutines  Required:  MAB,  CFFV,  MATB 

14 .  Remarks :  Formulation  is  given  in  documentation  on  the 
quadrilateral  element  in  Volume  I. 
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1 .  Subroutine  Name:  CFFV 

2.  Purpose:  To  evaluate  the  flexural  thermal  load  matrix  in 
local  system  coordinates  for  the  quadrilateral  element 

3.  Equations  and  Procedures:  Formulation  is  given  in  the 
report  on  the  quadrilateral  element  in  Volume  I 

4  .  Input  Arguments : 

DELC,  :Table  of  integrals  for  the  4  zones  of  the  quad-  ' 
DELPQ  rilateral 
JT  : Flexural  rigidity 

BMT  transformation  matrix 

5  .  Output  Arguments : 

FPB1  : Flexural  load  matrix  in  local  coordinates 

6.  Error  Results:  None 

7.  Calling  Sequence: 

CALL  CFFV  (DELC,  FPB1,  JT,  BMT,  DELPQ) 

8 .  Input  Tapes :  None 

9 .  Output  Tapes:  None 

10  .  Scratch  Tapes :  None 

11.  Storage  Required: 

DELC  (4,5,5),  DELPQ  (4,5,5)  FPB1  (16),  JT  (4),  BMT  (4), 
FPB  (16) 

Total  Storage  is  (365) 

12.  Subroutine  User:  CFFTS 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  CFMASS 

2 .  Purpose :  Evaluate  the  flexural  mass  matrix  in  local 
system  coordinates  for  the  quadrilateral  thin  shell  element 

3 .  Equations  and  Procedures :  Formulation  is  given  in  report 
on  the  quadrilateral  thin  shell  element. 

4  .  Input  Arguments : 

T  :  Flexural  thickness 

D00  :  Area  array  of  the  4  zones  of  the  quadrilateral 

SINA  :  Sine  of  angle  defined  by  intersection  of  the 
diagonals  and  points  1  and  2  of  the  element 
DENS  :  Density  of  element  material 

5  .  Output  Arguments : 

AMS  :  Elements  of  the  mass  matrix  in  local  coordinate 
system 

6.  Error  Returned:  None 

7  .  Calling  Sequence : 

CALL  CFMA$$  (T,  D00,  SINA,  DENS,  AMS) 

8  .  Input  tapes :  None 

9.  Output  tapes:  None 

1 0 .  Scratch  tapes :  None 

11.  Storage  Required: 

Total  Storage  required  is  23A^g  Bytes. 

12.  Subroutine  User:  PLUG1 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  PLUG7 


2.  Purpose:  To  formulate  the  element  matrices  for  a  frame 
element 

3.  Equations  and  Procedures:  The  following  sequence  of 
operations  take  place: 

1)  Plug  constants  are  set  and  checked  against  plug  input 

2)  Data  is  processed  for: 

(a)  grid  points 

(b)  element  data  such  as  area,  inertia,  etc  . 

(3)  The  length  for  the  element  and  the  direction  cosines 
are  determined  and  stored  in  TPRIME . 

(4)  Call  CTS  and  CTCQ  to  formulate  transformation  matrices 
TS  and  TCQ.  The  eccentity  of  the  element  is  taken  into 
account  by  calling  CECC  and  modifing  the  TS  matrix . 

(5)  The  transformation  to  systems  coordinates  is  per¬ 
formed  as  [TCQS]  =  [TCQ]  [ts]  and  if  grid  point  axes 
transformations  are  necessary,  [TCQS]  is  modified . 

(6)  The  matrix  [KS]  is  evaluated  and  then  pre  and  post 
multiplied  by  [TCQS]  to  form  the  stiffness  matrix  as 
[K$EL]. 

(7)  Dependent  on  the  type  of  analysis,  the  incremental 
and  mass  matrices  may  be  computed. 

8]  The  thermal  load  is  set  equal  to  zero . 

9)  The  stiffness  matrix  is  rearranged  into  the  stress 
matrix  and  the  thermal  stress  matrix  set  equal  to  zero. 

(10)  If  the  print  option  is  not  equal  to  0  calls  P7PRT 
to  print  out  intermediate  computations  . 

4  .  Input  Arguments : 

IPL  :  Plug  number 
NN  "4 

NNO  i  *  dumber  nodes 

XC 
YC 
ZC 

TEL  :  Temperature  array 

PEL  :  Pressure  array 

QS  :  Initial  displacements 

N0RD  :  Order  of  stiffness  matrix 

NERR  :  Error  return 

KK 
KF 
K8 

KM  :  Controls  on  element  matrices  to  be  competed 

ET  [ 

KVM  I 
KN  } 


Element  coordinates 
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EPSI0 

S0 

MAT 

EXTRA 

GPAXEL 

NDIR 

NDEG 

IC0NT 


Prestress  and  prestrain  values 

Material  properties  array 

Element  geometric  properties 

Grid  point  axis  transformations 

Number  of  directions  and  degree  control  for 

grid  point  axis  transformation 

Control  on  grid  point  axis 


5.  Output  Arguments: 


KSEL 

GT 

FTEL 

SEL 

SZALEL 
AMASS 
DAMPY  1 
DAMPS  J 
NRSEL 
NL 

N0INK  \ 
NMASS 
NDMPV  \ 

NDMP$ 
N$EL  ) 


Stiffness  matrix 
Gradient 

Thermal  load  matrix 
Stress  matrix 
Thermal  stress  matrix 
Mass  Matrix 

Viscous  and  Structural  Damping  Matrices 

Number  of  rows  in  stress  matrix 
Node  point  numbers 

Number  of  elements  in  the  stiffness,  mass,  viscous 
damping,  structural  damping  and  stress  matrices 


6.  Error  Returns:  If  third  node  point  is  not  present,  then  exit. 
Standard  tests  on  plug  constants. 


7.  Calling  Sequence: 

CALL  PLUG7  (IPL,  NNO,  XC,  YC,  ZC,  TEL,  PEL,  QS,  IP,  N0RD, 
NERR,  N0INK,  K$EL,  AN1,  FTEL,  SEL,  SZALEL,  AMASS, 
DAMFV,  DAMPS,  NRSEL,  NN,  NL,  NMASS,  NDMPV,  NDMPS, 
NSEL,  KK,  KF,  K8,  KM,  ET,  KVM,  KN,  IUSEL,  EPSIO,  SO, 
MAT,  EXTRA,  GPAXEL,  NDIR,  NDEG,  IC0NT ) 

8.  Input  Tapes:  None 


9*  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User:  ELPLUG 


13.  Subroutines  Required:  ELTEST,  CTCQ,  MAB,  AXTRA2,  CECC, 

BCB,  MSB,  MATB,  P7PRT,  CTS,  INCRE 

14.  Remarks:  Formulations  are  given  in  report  on  Frame  Element. 
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3  .  Subroutine  Name:  INCRE 


2.  Purpose:  To  evaluate  the  incremental  matrix  for  the  frame 
element. 

3.  Equations  and  Procedures:  Formulation  is  given  in  report 
on  Frame  Element . 


4  .  Input  Arguments : 


C0NI 

C0N2 

L 

J1 


:  Constants  set  equal  to  1 .0 
•  Physical  properties  of  element 


C  :  Input  displacement  matrix 
TCQS  :  Transformation  matrix 


5.  Output  Arguments: 


AN1  :  Element  incremental  stiffness  matrix  transformed  to 
reference  system  coordinates  . 

M  ] 

CI 

N  )  :  Intermediate  matrices 
AN2  f 

AN  3  J 

6  .  Error  Returns :  None 


7.  Calling  Sequence: 

CALL  INCRE  (C0N1,  C0N2,  L,  Jl,  AN1,  AN2,  C,  TCQS,  N,  AN3, 
AI.  CI) 

8  .  Input  Tapes :  None 

9  .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 


11 .  Storage  Required : 


AN1  (171),  AN 2  (78).  N  (78),  AN3  (78),  AI  (3,5),  C  fl) , 
TCQS  (12,12),  CI  (18) 


32.  Subroutine  User:  PLUG7 

13.  Subroutines  Required:  BCB 

14 .  Remarks :  None 
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1.  Subroutine  Name:  ?7PBT 

2.  Purpose:  To  print  out  intermediate  computations  and 
matrices  from  the  frame  element 


3.  Equations  and  Procedures:  Not  applicable. 

4 .  Input  Arguments : 


NERR 
GRI 
GR4 
GRT 
PHI1 
PHI4 
AMMAS 
EX 
G 
A 

AJ1 

JI  : 

L 

AIY 

AIZ 

EEI 


ET 

RN 

R1 

R2 

R3 

RM 

TPRIME 

TCQ 

T$ 

TCQS 

AN1 

AN2 

KS 

C 

I PRINT 


Error  test 
Gradient  terms 


Energy  terms 
Mass  Matrix 


Material  and  geometric  properties 


Control  on  element  matrix  computation 


Intermediate  computations 


Transformation  matrices 


Incremental  matrices 
Stiffness  matrix 

Intermediate  displacement  matrix 
Print  option 


5.  Output  Arguments:  Not  applicable 

6.  Error  Returns:  If  node  point  3  equal  to  zero,  then  exit. 


7-  Calling  Sequence: 

CALL  P7PRT  (NERR,  GRI,  GR4,  PHI1,  PHl4,  AMMAS,  G,  A,  AJ1, 
L,  AIY,  AIZ,  RN,  Rl,  R2,  R3,  AJ,  TPRIME,  KS,  TCQ, 

TS,  TCQS,  C,  QS,  AN2,  AN1,  RM,  EX,  EEI,  PRINT,  AN1 
ET) 
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8.  Input  tapes:  None 

9.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  Required: 


GR  (1),  GR4  (1),  AMMAS  (1),  RN  (1),  RM  (1),  R1  (1),  R2  (1), 
R3  (1),  AJ  (1),  TPRIME  (3,3),  KS  (1),  TCQ  (12,12),  TS 
(12,12),  0  (1),  QS  (1),  AN 2  (1),  AN1  (1),  TCQS  (12,12), 

GRT  (1) .  Total  storage  is  («87)10 

12.  Subroutine  User:  PLUG7 


13.  Subroutines  Required:  SYMPRT 

14 .  Remarks :  None 
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1 .  Subroutine  Name :  CTS 

2.  Purpose:  To  evaluate  the  transformation  matrix  from  local 
to  referenced  system  coordinates  for  the  frame  element 

3.  Equations  and  Procedures:  Formulation  is  given  in 
documentation  on  frame  element. 

4  .  Input  Arguments : 

TPRIME  :  Local  coordinates  transformation  matrix 
5.  Output  Arguments: 

TS  :  Required  transformation  matrix 

6  .  Error  Returns :  None 

7.  Calling  Sequence:  CALL  CTS  (EE1,.  EE2,  TS,  TPRIME) 

8.  Input  tapes:  None 

9.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  Required:  TS  (12,12),  TPRIME  (3,3) 

Total  Storage  is  (105) 

12.  Subroutine  User:  PLUG7 

13.  Subroutines  Required:  None 

14 .  Remarks:  EE1,  EE2  -  Dummy  arguments 
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1 . 
2 , 

3  * 
4. 


5. 

6 . 


7. 


8. 

9. 

10. 


11 . 


12. 

13. 


14. 


Subroutine  Name:  CTCQ 

Purpose:  To  formulate  the  transformation  matrix  to  local 
system  coordinates  for  the  frame  element 

Equations  and  Procedures :  Formulations  are  given  in 
documentation  on  Frame  Element. 


Input  Arguments: 


TGQ 

L 

L2 

L3 

L4 

L5 


:  Elements  of  input  transformation 


:  Length,  Length  squared,  etc. 


Output  Arguments: 

TCQ  :  Required  transformation  matrix 
Error  Returns :  None 

Calling  Sequence:  CALL  CTCQ  (TCQ,  L,  L2,  L3,  L4,  L5) 

Input  tapes:  None 

Output  tapes :  None 

Scratch  tapes:  None 

Storage  required:  Total  Storage  required  is  2FC1^  Bytes. 

Subroutine  User:  PLUG7 
Subroutines  Required:  None 
Remarks :  None 
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1.  Subroutine  Name:  CECG 

2.  Purpose:  To  compute  modifications  to  the  transformation 
matrix  to  account  for  eccentricity  for  the  frame  element 

3 .  Computations  and  Procedures :  Formulation  is  given  in 
documentation  on  Frame  Element. 

4 .  Input  Arguments : 

EE1  1 

EE2  J:  Eccentricity  matrices 

TS  :  Transformation  matrix  to  be  modified 

5.  Output  Arguments: 

TS  :  Modified  transformation  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence:  CALL  CECC  (EE1,  EE2,  TS) 

8.  Input  tapes:  None 

9.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  required:  TS  (12,12),  EE1  (3),  EE2  (3) 

Total  Storage  is  (l46)1Q. 

12.  Subroutine  User:  PLUG7 
13*  Subroutines  Required:  None 
14 .  Remarks :  None 


1. 


Subroutine  Name:  MPRD 


2.  Purpose:  Multiply  two  .matrices  to  form  a  resultant  matrix 


3. 


4. 


Equations  and  Procedures: 

D3  *  M  M 


Input  Arguments 

A:  First  input  matrix 

B:  Second  input  matrix 

N:  Number  of  rows  in  A  matrix 

L:  Number  of  columns  in  B 

MSA:  Control  on  storage  mode  of  A  ^ 

MSB:  Control  on  storage  mode  of  B  / 


See  Remarks 


5.  Output  Arguments:  R  -  Resultant  matrix 

6.  Error  Returns:  None 


7.  Calling  Sequence:  CALL  MPRD  (A,  B,  R,  N,  M,  MSA,  MSB,  L) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  SEA^  Bytes. 

12.  Subroutine  User:  Utility  subroutine 

13.  Subroutines  Required:  L0C 

14.  Remarks: 

Storage  Control  of  A  and  B  matrix  (MSA  and  MSB) 

0  -  General 

1  -  Symmetric  (upper  half) 

2  -  Diagonal 
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1.  Subroutine  Name:  TPRD 

2.  Purpose:  Transpose  a  matrix  and  postmultiply  b,y  another 
to  form  a  rc  ultant  matrix. 

3.  Equations  and  Procedures 

M  -  Mt  W 

A  is  not  actually  transposed.  Instead,  elements  in  matrix 
A  are  taken  column-wise  rather  than  row-wise  for  multipli¬ 
cation  by  B. 

4.  Input  Arguments 


A  : 

R : 

N: 

M: 

L: 

MSA: 

MSB: 


First  input  matrix 
Second  input  matrix 
Number  of  rows  in  A  and  B 
Number  of  columns  in  A  and  rows  in  R 
Number  of  columns  in  B  and  rows  in  R 
Control  of  storage  mode  of  A 
Control  of  storage  mode  of  B 


} 


See  Remarks 


5.  Output  Arguments:  R  -  Resultant  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  TPRD  (A,  B,  R,  N,  M,  MSA,  MSB,  L) 
3.  Input  Tapes:  None 

9.  Output  Tapes:  None 


10.  Scratch  Tapes:  None 

11.  Storage  Required:  Tota.  Storage  required  is  SEA^g  Bytes. 

12.  Subroutine  User:  Utility  subroutine 

13.  Subroutines  Required:  LOC 

14.  Remarks 


Storage  Control  of  A  and  B  Matrix  (MSA  and  MSB) 
0  -  General 

1  -  Symmetric  (upper  half  by  columns) 

2  -  Diagonal 
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1.  Subroutine  Name:  AI  (Function) 

2.  Purpose:  Control  operation  of  the  triangular 
integration  package. 


3.  Equations  and  Procedures:  The  integration  package  will 
calculate  the  value  of  a  double  definite  integral  of 
the  form 


r^z^dz  dr 


r  . 
0 


z 


mn 


z 


kl 


The  procedure  is  to  call  a  series  of  function  subprograms 
dependent  upon  the  values  of  p  and  q.  The  variables  in 
the  above  integral  are  represented  by  the  following 
program  variables,  which  are  defined  in  the  input 
arguments  section  below: 

Integral  Variable  Corresponding  Program  Variable 


r 

z 

P 

q 

i 

J 

k 

1 

m 

n 


R 

Z 

IP 

IQ 

I 

J 

K 

L 

M 

N 


4.  Input  Arguments: 


I 

J 

K,  L 

M,  N 

IP 

IQ 


r  coordinate  subscript  of  i  th  element 
defining  point 

z  coordinate  subscript  of  j  th  element 
defining  point 

Slope  of  element  line  passing  through  the 
element  defining  point  z^ 

Slope  of  element  line  passing  through  element 

defining  point  z  „ 

mn 

Exponent  of  r  coordinate 
Exponent  of  z  coordinate 
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R  :  Array  containing  r  coordinates  of  element 

defining  points 

Z  :  Array  containing  z  coordinates  of  element 

defining  points 

5 .  Output  Argument : 

AI( Function)  :  Result  of  performing  the  indicated 

integration 

6.  Error  Return:  None 


7.  Calling  Sequence: 

AI(I,  J,  K,  L,  M,  N,  IP,  IQ,  R,  Z) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  9FE^^  Byt 

12.  Subroutine  User:  TRAIC,  DPQINT 

13.  Subroutines  Required: 

AM 

AK 

BINT 

F89 

FF100 

FJAB 

F6219 

F6211 


l4.  Remarks:  None 


1.  Subroutine  Name:  BINT 

2.  Purpose:  Perform  integration 

r±f  V(a+br)w  dr 

3.  Equations  and  Procedures: 

Expand  r  (a+br)  by  binomial  theorem 
and  integrate  term  by  term. 

4.  Input  Arguments:  I,  J,  A,  B,  IV,  IW,  R,  Z 

5.  Output  Arguments:  BINT 

6 .  Error  Returns :  None 

7.  Calling  Sequence:  BINT(I,  J,  A,  B,  IV,  IW,  R,  Z) 

B.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  35E1g  Bytes. 

12.  Subroutine  User:  AI 

13.  S\ib  routines  Required:  COEF,  AJ 

14.  Remarks:  None 
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1.  Subroutine  name:  aK 

2.  Purpose:  Generate  slope  of  line  between  two  points  of  a 

triangle 

T,,'luations  and  Procedures: 

AK  =  [Z(J)  -  7,(1)]  /[R(J)  -  R  (I)] 

4.  Input  Arguments:  I,  J,  R,  Z 

5.  Output  Arguments:  AK 

6.  Error  Returns:  None 

7.  Calling  Sequence:  AK(I,  J,  R,  Z) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  180^  Bytes. 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


1.  Subroutine  Nn;v-.  AM 

2.  Purpose:  Generate  '.ntercept  of  line  between  two  points  of 
triangle. 

3.  Equations  and  Procedure?: 

AM  =  [H(J)Z(D  -  R(nZ(J)]  /  [R(J)  -  R(I)] 
b.  Input  Arguments:  I,  0;  R.7 

5.  Output  Arguments:  AM 

6.  Error  Returns:  None 

7.  Calling  sequence:  AM  (I,  J,  R,  Z) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  1.9  8  Bytes. 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  IFAC 

2.  Purpose:  Compute  N  factorial 

3.  Equations  and  Procedures:  N!  =  IFAC  =  n(n-l) (n-2) .  .  . 

4.  Input  Arguments:  N 

5.  Output’  Arguments:  IFAC 

6.  Error  Returns:  None 

7.  Calling  Sequence:  IFAC(N) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  l?6^g  Bytes 

12.  Subroutine  User:  FF100 

F89 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


Subroutine  Name:  PJAB  (function) 

Purpose:  To  generate 

J [x  m-1/(a  +  bx)J  dx 
Equations  and  Procedures: 

F  =  [(xm  log  (a+bx) )/mj  -  [(b/m) J (xn/(a-bx)n)  dx] 
evaluated  at  x  -  x  (I) 

Input  Arguments:  I,  A,  B,  M,  N,  X 
Output  Argument:  PJAB 

Error  Returns :  None 

Calling  Sequence:  PJAB  (I,  A,  B,  M,  N,  X) 

Input  Tapes:  None 
Output  Tapes :  None 
Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  is  286^  Byt 
Subroutine  User:  AI 
Subroutines  Required:  F89 


Remarks : 


None 


1.  Subroutine  Name:  P^219  (function) 

2.  Purpose:  To  generate  integral  of 

J (log  (a  +  bx)  /  (xm  +  1))  dx 

3.  Equation  and  Procedures: 

F  =  (  -  log  (a  -f  bx)  /  (mxm))  +  |y(b/(m(a  +  bx)  xm))  ax  j 

evaluated  at  x  =  X(I) 

A,  Input  Arguments:  I,  A,  B,  M,  N,  X 

5.  Output  Arguments:  F6219 

6.  Error  Returns:  None 

7.  Calling  Sequence:  Function  F6219  (1,  k,  B,  M,  N,  X) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  286l6  Bytes. 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  FF100 

14.  Remarks:  None 
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1. 

2. 


3. 


4. 


3. 


6. 


7. 


3. 


9. 


10. 


11. 


12. 


13. 


14. 


Subroutine  Name :  F6211 

Purpose:  To  generate 

J  [(log  (A+BX)/x]  dx 

Equations  and  Procedures: 


E  =  lor  (A)  log  (X)  + 


BX 


2  2 

b  yr 

4a2 


evaluated  at  X  =  X  (I) 

Input  Arguments:  I,  A ,  B,  X 
Output  Arguments :  F6211 

Error  Returns:  None 

Calling  Sequence:  Function  F6211  (I,  A,  B,  X) 

Input  Tapes :  None 
Output  Tapes:  None 
Scrat  h  Tapes:  None 

Storage  Required:  Total  storage  required  is  ^9Cl6  Bytes. 
Subroutine  User:  AI 
Subroutines  Required:  None 
Remarks:  None 
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1.  Subroutine  Name:  AJ  (function) 

2.  Purpose:  Generates 

for  M  +  1  >0  [R(J)M  -  R(I)K  ]  /  (MW) 

for  M  +  1  =0  log  [r(J)/R(I)  ] 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  I,  J,  R,  M 

5.  Output  Arguments:  AJ 

6.  Error  Returns:  None 

7.  Calling  Sequence:  Function  AF(I,  J,  R,  M) 

3.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  262^  Bytes. 

12.  Subroutine  User:  BINT 

13.  Subroutines  Recuired:  None 

14.  Remarks:  None 
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1.  Suuroutine  Name:  COEF 


% 


2. 


3. 


4. 


5. 


6. 


7. 


8. 


9. 


10. 


ll . 


12. 


13. 

14. 


Purpose:  Generate  binomial  coefficient 
Equations  and  Procedures: 

coef  =  (;)  =  ncr  =  zyr~ 

(the  combination  of  n  items  taken  r  times) 

Input  Arguments:  N,R 
Output  Arguments:  COEF 
Error  Returns .  None 
Calling  Sequence:  COEF  (N,R) 

Input  Tapes:  None 
Output  Tapes:  None 
Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  is  lFO^  Bytes. 
Subroutine  User:  BINT 
Subroutines  Required:  None 
Remarks:  None 
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Subroutine  Name:  F89  (Function) 

Purpose:  To  generate  integral 
j (xm/(a+bx)n  )  dx 
Equations  and  Procedures: 

ml  (-a1sXm-n-s+1 
(m-s)!s!  (m-n-s+1) 

Input  Arguments:  I,  A,  B,  M,  N,  X 
Output  Arguments:  F89 
Error  Returns:  None 

Calling  Sequence:  F89  (I,  A,  B,  M,  N,  X) 

Input  Tapes :  None 
Output  Taper :  None 
Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  Is  476 
Subroutine  User:  AI 
Subroutines  Required:  IFAC 


F89  = 


bm+l 


m 

r* 

L-> 

S-Q 


where  X  =  a+bx 
evaluated  at  x 


Remarks :  None 


evaluated  at  x, 

h.  Input  Arguments:  I,  A,  B,  M,  N,  X 
r>.  Output  Arguments:  FFlOO 
Error  Returns:  None 

7.  Calling  Sequence:  FFlOO  (I,  A,  B,  M,  N,  X) 

Input  Tapes:  None 
0.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  4E.8l6  Bytes. 

12.  Subroutine  User:  F6219 

13.  Subroutines  Required:  IFAC 
1JI .  Remarks:  None 


1. 


Subroutine  Earner 


PLUGS 


2.  Purpose:  Control  generation  of  element  matrices  for  the 

triangular  thin  uhell  element. 

3.  Equations  and  Procedures: 

a)  Call  subroutine  ELTEST  to  verify  input  control  values. 

b)  Call  subroutine  DTAPR  to  calculate  r  b-element  coordinates 
and  boundaries. 

c)  Call  subroutine  MATPR  to  generate  material  properties 
matrices . 

d)  Call  subroutine  NEWPT1  to  apply  revised  thermal  load 
formulation,  if  necessary. 

e)  Call  subroutine  PTBM  to  generate  sub-element  to  local 
geometric  coordinate  system  transformation  matrix. 

f)  Call  subroutine  PTMGS  to  generate  local  geometric 
coordinates  to  reference  system  coordinates  transformation 
matrix . 

g)  Call  subroutine  MAB  to  combine  transformation  matrices 
generated  in  (e)  and  (f)  above  into  one  matrix  that  will 
apply  transformation  from  sub-element  to  reference  system 
coordinates . 

h)  If  grid  point  axes  are  to  be  applied  then  call  subroutine 
AXTRA2  to  appropriately  modify  final  transformation  matrix 
generated  in  (g)  above. 

i)  Call  subroutine  DPQINT  to  evaluate  the  integrals  over 
the  '•  hree  sub-elements. 

j)  Call  subroutine  PKM  to  generate  the  membrane  contribution 
to  the  element  stiffness  matrix. 

k)  Call  subroutine  PMMASS  to  generate  membrane  contributions 
to  element  mass  matrix. 

l)  Call  subroutine  PSTM  to  generate  the  membrane  contribution 
to  the  element  stress  matrix. 

m)  Call  subroutine  PFMTS  to  generate  membrane  contribution 
to  element  thermal  load  and  thermal  stress  matrices. 

n)  If  requested,  call  subroutine  APRT  to  print  intermediate 
results. 

o)  The  flexural  contributions  to  the  element  matrices  are 
then  generated  with  the  following  flexure  subroutines 
performing  the  same  function  as  their  membrane  counterparts. 


PTBP 

is 

the 

flexural 

counterpart 

to 

PTBM 

PTPGS 

ft 

If 

tt 

ff 

tt 

PTMGS 

PKP 

it 

fl 

II 

tt 

tf 

PKM 

PFMASS 

if 

t? 

It 

tt 

w 

PMMASS 

PSTP 

it 

If 

If 

ft 

if 

PSTM 

PPFTS 

tt 

If 

ff 

ft 

t» 

PPMTS 

p)  Call  subroutine  PPP  to  generate  element  pressure  load 
matrix. 

q)  Call  subroutines  PNC1  and  PNG1  to  generate  element 
incremental  stiffness  matrix  (non- functional) . 

r)  Call  subroutine  PLAS2  to  generate  plasticity  premultipliers 
(non- functional) . 
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Input  Arguments: 


I  PL 

NNO 

XC 

YC 

ZC 

TTL 

PEL 

QS 


IP 

NORD 

NOINK 

NN 

NL 

KK 

KP 

K8 

KTS 

KM 

FN 

KVM 

KN 

IUSEL 

EPSLON 

SIGZER 

MAT 

EXTRA 

GPAXEL 

NDIR 

NDEG 

ICONT 


internal  element  identification  number  (2) 
number  of  element  defining  points  (6) 
cooidinates  of  element  defining  points 


temperatures  at  element  defining  point 
pressures  at  element  defining  points 
input  displacements  at  element  defining  points 
(not  used) 
not  used 

total  element  degrees  of  freedom  (36) 
number  of  storages  required  for  element 
stiffness  matrix  (NORD  *  (NORD  +  l)/2) 
not  used 

av  -  xy  containing  grid  point  numbers  of  element 
defining  points 

suppression  control  for  element  stiffness  matrix 
suppression  control  for  element  thermal  and 
pressure  load  matrices 

suppression  control  for  element  stress  matrix 
suppression  control  for  element  thermal  stress 
matrix 

suppression  control  for  element  mass  matrix 
not  used 
not  used 

suppression  control  for  element  incremental 
stiffness  matrix 
not  used 

input  pre-strains  (not  used) 
input  pre-stresses  (not  used) 

input  temperature  interpolated  material  properties 
special  element  input 

grid  point  axes  transformation  matrices 

number  of  directions  of  element  defining  points  (3) 

number  of  solution  degrees  of  freedom 

(2  -  translation  and  rotation) 

grid  point  axes  indicator 


5.  Output  Arguments: 


NERR 

AK 

ANEL 

FTEL 

S 

SZALEL 

AMASS 


error  indicator 

element  stiffness  matrix 

element  incremental  stiffness  matrix 

element  thermal  and  pressure  load  matrix 

element  stress  matrix 

element  thermal  stress  matrix 

element  mass  matrix 
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Output  Arguments  (Contd): 

DAMPV  -  element  viscous  damping  matrix 

DAMPS  -  element  structural  damping  matrix 


NRSEL 

— 

number  of  rows  in  element  stress 
stress  matrices 

and  thermal 

NMASS 

— 

number  of  storages  required 
matrix 

for 

element  mass 

NDMPV 

number-  of  storages  required 
viscous  damping  matrix 

for 

element 

NDMPS 

number  of  storages  required 
structural  damping  matrix 

for 

element 

NSEL 

- 

number  of  storages  required 

for 

element 

stress  matrix 

Error  Returns: 

If  no  error,  then  NERR  is  set  to  zero 
If  IPL  jt  2,  then  NERR  is  set  to  one 

If  NNO  t  6,  then  NERR  Is  set  to  two 

If  NORD  7*  36,  then  NERR  is  set  to  four 

Calling  Sequence; 

Call  PLUG2 ( IPL, NNO, XY , YC ,ZC ,TTL , PEL, QS, IP ,NORD, NERR, NOINK, 
AK , ANEL , FTEL , S , SZ ALEL , AMASS , DAMPV , DAMPS , NRSEL , NN , 
ML , HMASS , NDMPV , NDMPS , NSEL , KK,KF,K8 , KTS , KM ,FN , KVM , 
KN , IUSEL , EPSLON ,SIGZER , MAT , EXTRA ,GPAXEL ,NDIR , NDEG 
ICC NT) 


Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  2A?8l6  Bytes 

Subroutine  User:  ELPLUG 

Subroutines  Required: 

ELTEST,  DTAPR,  MAT PR,  NEWFT1 ,PTBM,  PTMGS ,  MAB,  AXTRA2, 
DPQINT,  MINV,  PKM,  PSTM,  PFMTS ,  APRT,  PTBF ,  PTFGS,  PKF, 

PFP,  PSTF ,  P'FFTS .  PNC1,  PNG1,  EPRT,  PLAS2,  PFMASS,  PMMASS 


Remarks : 


None 


1.  Subroutine  Marne:  PMKAJS 

2.  Purpose:  To  calculate  the  membrane  contributions  to  the 

mass  matrix  for  the  triangular  thin  plate  element. 

3.  Equations  and  Procedures:  The  weight  of  the  element  is 

calculated  to  be  the  area  x  thickness  x  density.  This  is 
then  distributed  equally  to  the  3  corner  points. 

*1.  Input  Arguments: 

T  =  thickness  of  element 

D00  =  area  of  triangle 

DEWS  =  density  of  element's  material 

i>.  Output  Arguments:  AMS  =  lccal  mass  matrix 

6.  Error  Returns:  Hone 

7.  Calling  Sequence:  Call  FMMA3S  (T,DOO,SINA,DENS,AMS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  222.^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutine  Required:  None 

1 .  Remarks:  None 
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1.  Subroutine  Name:  PFMASS 

2.  Purpose:  To  calculate  the  flexural  contribution  to  the 

mass  matrix  for  the  triangular  thin  plate  element. 

3.  Equations  and  Procedures:  The  weight  of  the  element  is 

calculated  to  be  the  area  x  thickness  x  density.  This  is 
then  distributed  equally  to  the  three  corner  points. 

4.  Input  Arguments: 

T  =  thickness  of  element 

D00  =  area  of  tria  igle 

DENS  *  density  of  element's  material 

5.  Output  Arguments:  AMS  ■  Jocal  membrane  mass  matrix 

6.  Error  Return:  None 

7.  Calling  Sequence:  Call  PFMASS  (T,DOO,SINA, DENS, AMS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required*  Total  Storage  required  io  t-DA,^  Bytes* 

12.  Subroutine  User:  PLU02 

13.  Subroutine  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  ASSY2 

2.  Purpose:  Assemble  membrane  and  flexure  contributions 
into  element  stiffness  matrix  for  triangular  thin  shell 
element 

3.  Equations  and  Procedures:  The  elements  of  the  Cl  matrix 
are  summed  into  the  C2  matrix  as  directed  by  the  input 
array  IASY. 

4.  Input  Arguments: 

Cl  :  Array  containing  input  elements  to  be 

assembled 

IASY  :  Array  containing  assembly  instructions 

N1  :  Order  of  Cl 

5.  Output  Arguments: 

C2  :  Assembled  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(C2,  Cl,  IASY,  Nl) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  296^  Bytes. 

12.  Subroutine  User: 

PKM 

PKF 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  DCD 


Purpose:  To  evaluate  the  triple  matrix  product  of  a 
diagonal  matrix  P,  a  .'symmetric  matrix  S,  and  the  diagonal 
matrix  D. 


(See  remarks) 


h.  Tnput.  Arguments: 

SYM:  Elements  of  symmetric  matrix  [S] 
P:  Elements  of  a  diagonal  matrix  [l^ 

N:  Order  of  [s]  and  [D]  matrices 

5.  Output  Arguments: 

AN:  Elements  of  matrix  product 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  PCD  (SYM,  P,  AN,  N) 

R.  Input  Tapes:  None 
Q.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Reonlve^: 

Total  Storage  required  is  30A^g  Bytes. 

12.  Subroutine  User:  PKP,  PKM 

] R .  Subroutines  Required:  None 
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'1 4.  Remarks: 


.The  summations  occur  over 


0  *  *  *  0 

S11 

°  d ^ 

S21  S22 

•  •  • 

•  »  • 

•  •  • 

•X 

•  • 

•  • 

»  « 

X- 

_!  *  *  '  •  %n 

Snl  Sn2  ••*Snn 

o 


o 


'OO 


All  redundant  multiplications  (i.e.  those  where  zero  ele¬ 
ments  exist  in  the  D  matrix  and  those  where  the  upper 
elements  of  the  S  matrix  would  be  considered)  are  dispensed 
within  the  program  and  only  significant  multiplications 
take  place. 
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1.  Subroutine  Name:  DTAPR 


2,  Purpose:  Ji'uaU:  throe  sub- elements  and  transformation 
matrix  from  system  to  local  coordinates 

3.  Equations  and  Procedures:  The  sub-element  coordinates 
are  calculated  from  the  system  coordinates  by  generating 
a  transformation  matrix  and  applying  it  to  the  system 
coordinates  array. 

A .  Input  Arguments : 

R1,R2,R3  :  Reference  system  coordinates 

E1,E2,E3,E  :  Arrays  containing  coordinate  differences 

R12,R13  :  Work  storage 

COORDS  :  Reference  system  coordinates 

:3.  Output  Arguments: 

RO  :  Origin  of  sub-elements  coordinate  system 

RL1.RL2,RL3  :  Local  sub-elements  coordinates 
TGS  :  Transformation  from  reference  system  to 

local  sub-element  coordinates  matrix 
COORDL  :  Local  sub-elements  coordinates 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(Rl,  R2,  R3,  RL1 ,  RL2,  RL3,  El,  E2,  E3,  E,  TGb,  RO, 

R12,  R13,  COORDS,  COORDL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  6EA^g  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  MAB 
1^.  Remarks:  None 


1.  Subroutine  Name: 


MATPR 


2.  Purpose:  Generate  material  properties  s  ;  : - 
for  triangular  thin  shell  element 


3.  Equations  and  Procedures:  The  material  properties 

matrix,  EM,  is  generated  dependent  upon  the  formulation 
option  selected;  plane  stress,  plane  strain  or  normal!  . 
The  matrix  angle  and  stress  angle  is  determined  by 
examining  the  extra  element  defining  points.  The 
material  properties  matrix  is  then  oriented  to  the 
desired  material  angle  and  the  stress  angle  transforma¬ 
tion  matrix  is  generated. 

^1.  input  Arguments: 


ML 

XC,YC,ZC 

EX,EY, EZ 
GXY 

VXY,VZX,VYZ 
ALPHAX , ALPH AY 
GAMXY 
T 

EXGRID 


EXGRDL 

ALPH AM 
ALPHAG 
TGS 

1ST 

RI.R2,R3 

ROB 

RL1, RL2, RL3 

EES 

NEXGR 

AMAT 

L,M 


:  Array  containing  grid  point  numbers 
of  element  defining  points 
:  Arrays  containing  reference  system 
coordinates  for  element  defining  points 
:  Young's  Moduli 
:  Rigidity  Modulus 
:  Poisson's  Ratios 
:  Coefficients  of  thermal  expansion 
:  Material  angle 
:  Thickness 

:  Array  containing  coordinate  differences 
for  stress  angle  definition  points 
:  Array  containing  coordinate  differences 
for  material  angle  definition  points 
:  Not  used 
:  Not  used 

:  Transformation  matrix  from  reference 
system  to  sub-element  coordinates 
:  Plane  strain,  stress  control 
:  Not  used 

:  Origin  of  sub-element  coordinate  system 
:  Local  sub-element  coordinates 
:  Work  storage 
:  Work  storage 

:  Local  sub-element  coordinates 
:  Work  storage 


5.  Output  Arguments: 


EM  :  Material  properties  matrix 

EG  :  Transformed  material  properties  matrix 

(oriented  to  material  angle) 

TES  :  Material  angle  transformation  matrix 

TESS  :  Stress  angle  transformation  matrix 


6.  Error  Returns:  None 

7.  Calling  Sequence: 

(NL,  XC,  YC,  ZC,  EX,  EY,  GXY,  VXY,  EZ,  VZX,  VYZ, 

ALPHAX,  ALPHAY,  GAMXY,  T,  EM,  EG,  EXGRID,  EXGRDL, 

ALPHM,  ALPHG,  TGS,  1ST,  Rl,  R2,  R3,  ROB, . RL1,  RL2, 

RL3,  EES,  TES,  TESS,  NEXGR,  AMAT,  L,M) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required;  Total  storage  required  is  BEKl6  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

MINV 

KAB 

BCB 

lA.  Remarks:  None 
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1.  Subroutine  Name: 


NEWFT1 


2.  Purpose:  Generate  membrane  and  flexural  Umv.  .  .-i  [loads 
for  triangular  thin  shell  element  in  local  rocrdi nates 

3.  Equations  i  rocedures: 

BCT  =  /  *  CT 

BMT  =  BCT  *  TEMM 

BFT  -■  BCT  *  TEMF 

where  F  and  CT  are  geometric  matrices  of  local  coordinates, 
and  TEMii  and  TEMF  are  membrane  and  flexure  temperatures, 
respectively,  at  the  element  defining  points. 

4 .  Input  Arguments : 

DELTM  :  Average  membrane  temperature 

DELTF  :  Average  flexure  temperature 

RL1,RL2,RL3  :  Local  coordinates 

TZ  :  T  for  structure 

F, BCT, CT  :  Work  storage 

TEL  :  Temperatures  at  element  defining  points 

TEMM, TEMF, L, M  :  Work  storage 

!).  Output  Arguments: 

BMT  :  Membrane  thermal  load  in  local 

coordinates 

BFT  :  Flexure  thermal  load  in  local 

coordinates 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(DELTM,  DELTF,  RL1,  RL2,  RL3,  TZ,  BMT,  BFT,  F,  BCT, 

CT,  TEL,  TEMM,  TEMF,  L,  M) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  516.^  Bytes. 

12.  Subroutine  User:  PLUG2 
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13.  Subroutine  Required: 

MINV 

MAB 

14 .  Remarks :  None 


1.  Subroutine  Name:  PTBM 

2.  Purpose:  Generate  membrane  transformation  matrix 
from  sub-element  to  geometric  coordinate  system 

3.  Equations  and  Procedures:  The  transformation  matrix 
is  generated  directly  from  sub-element  coordinate 
values  and  inversion. 

4.  Input  Arguments: 

TGSM  :  Not  used 

RL1,RL2,RL3  :  Sub- element  coordinates 

L,M  :  Work  storage 

5 .  Output  Argument : 

TBM  :  Sub-element  to  geometric  coordinate 

system  membrane  transformation  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(TBM,  TGSM  RL1,  RL2,  RL3,  L,  M) 

8.  Input  Tapes:  None. 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  J^9A1g  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  MINV 

14.  Remarks:  None 
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1.  Subroutine  Name:  FTMGS 

2.  Purpose:  Generate  geometric  to  reference  cr. ordinate 
system  membrane  transformation  matrix 

3.  Equations  and  Procedures:  The  transformation  matrix  is 
generated  by  utilizing  the  TGS  matrix.  The  effect  of 
eccentricities  and  mid-point  suppression  is  also 
reflected  in  the  generation  of  the  TGSM  matrix. 

t.  Input  Arguments: 

NL  :  Array  containing  element  defining 

grid  point  numbers 
EEZ  :  Eccentricity 

TBM  :  Not  used 

TGS  :  Reference  system  to  sub-element 

transformation  matrix 

5.  Output  Arguments: 

TGSM  :  Geometric  to  reference  coordinate  system 

membrane  transformation  matrix 

6.  Error  Returns:  None 
7-  Calling  Sequence: 

(NL,  EEZ,  TBM,  TGSM,  TGS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  478.  ^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  D POINT 

2.  Purpose:  Generate  integrals  over  the  throe  sub¬ 
elements  of  a  triangular  thin  shell  element 

3.  Equations  and  Procedures:  The  integrals  are  calculated 
by  using  the  triangular  integration  package  controlled 
by  the  function  subprogram  AI.  The  output  values  of 
the  integrals  are  placed  in  the  array  DELPQ. 

4.  Input  Arguments: 

RL1,RL2,RL3  :  Sub-element  coordinates 

R,Z,TEMP  :  Work  storage 

5.  Output  Arguments: 

DELPQ  :  Array  containing  integral  values 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(DELPQ,  RL1,  RL2,  RL3,  R,  Z,  TEMP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  T^pes:  None 

11.  Storage  Required:  Total  storage  required  is  YAC^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  AI  (Function) 

14.  Remarks:  None 
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Subroutine  Name :  PKM 


Purpose:  Generate  membrane  contribution  to  triangular 
thin  shell  element  stiffness  matrix 


Equations  and  Procedures:  The  membrance  contribution 
to  the  element  stiffness  matrix  is  formed  by  generating 
sub-element  stiffness  matrices,  assembling  them  into  a 
work  area  and  then  transforming  from  the  work  area  to 
the  reference  coordinate  system, 


Input  Arguments: 


AX1 

DELPQ 

EM 

EG 

TMS 

TPS 

IASEM 

AD 

CM 

AIJ 

IPRT 

EX 

EY 

GXY 

VXY 

ALPS AX 

ALFHAY 

GAMXY 

T 


:  Work  storage 
:  Sub-element  integrals 
:  Material  properties  matrix 
:  Material  Droperties  matrix  oriented 
to  material  angle 

:  Sub-element  to  reference  coordinate 
system  transformation  matrix 
:  Not  used 

:  Array  containing  assembly  parameters 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Element  print  control 
:  Not  used* 

:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 

:  Membrane  thickness 


Output  Argument : 

AK  :  Membrane  contribution  to  element 

stiffness  matrix 


Error  Returns:  None 
Calling  Sequence: 

(AK,  AK1,  DELPQ,  EM,  EG,  TMS,  TPS,  IASEM,  AD,  CM,  AIJ, 
IPRT,  EX,  EY,  GXY,  VXY,  ALPHAX,  ALPHAY,  GAMXY,  T) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 


11.  Storage  Required:  Total  storage  required  is  7^6^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

SYMPRT 

DCD 

ASSY2 

BOB 

14.  Remarks:  None 
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1.  Subroutine  Name:  PSTM 

2.  Purpose:  Generate  membrane  contribution  to  element 
stress  matrix  for  the  triangular  thin  shell  element 


3.  Equations  and  Procedures:  The  membrane  contributions 
to  the  element  stress  matrix  are  generated'  by  first 
forming  the  stress  values  in  local  coordinates,  then 
transforming  to  reference  system  coordinates  and 
finally  applying  the  stress  angle  transformation. 

4.  Input  Arguments: 


RL1 

RL2 

RL3 

TMS 

TFS 

'EM 

EG 

SN 

AMI 

AM2 

TES 

EX 

EY 

GXY 

VXY 

ALFHAX 

ALFHAY 

GAMXY 

T 

R 

U 

X 

Y 


:  Sub-element  coordinates 


:  Sub-element  to  reference  coordinate  system 
transformation  matrix 
:  Not  used 
:  Not  used 

:  Material  properties  matrix  oriented  to 
material  angle 
:  Work  storage 
:  Work  storage 
:  Work  storage 

:  Stress  angle  transformation  matrix 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 

:  Membrane  thickness 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 


5.  Output  Arguments: 

S  :  Membrane  contribution  to  element 

stress  matrix 


6.  Error  Returns:  None 
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7.  Calling  Sequence: 

(S,  RL1,  RL2,  RL3,  TMS,  TFS,  EM,  EG,  SN,  AMI,  AM2, 

TES,  EX,  EY,  GXY,  VXY,  ALPHAX,  ALFHAY,  GAMXY,  T,  R, 

U,  X,  Y) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  610^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

MAB 

MSB 

MATB 

14.  Remarks:  None 
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1.  Subroutine  Name:  PFMTS 

2.  Purpose:  Generate  membrane  thermal  load  and  membrane 
thermal  stress  matrices  for  the  triangular  thin  shell 
element 


3.  Equations  and  Procedures:  Subroutine  PFMV1  is  called 
to  generate  the  thermal  load  matrix  in  'geometric 
coordinates  from  EMT.  This  matrix  is  then  transformed 
to  reference  system  coordinates  by  TMS.  The  thermal 
stress  matrix  is  generated  and  the  stress  angle  applied 
by  TESS. 

4.  Input  Arguments: 


DELTM 

TES 

TESS 

BMT 

EM 

EG 

TMS 

TFS 

EX 

EY 

GXY 

VXY 

FMV 

ALFHAX, 

ALFHAY 

GAMXY 

T 

TO 

TI 

FME 

EMI 

EMI 

SZLM 

SZLM1 

WRK 

DELPQ 


:  Average  membrane  temperature 
:  Material  angle  transformation  matrix 
:  Stress  angle  transformation  matrix 
:  Membrane  thermal  load  contribution 
in  sub-element  coordinate  system 
:  Not  used 

:  Material  properties  matrix  oriented  to 
material  angle 

:  Sub-element  to  reference  coordinate 
system  transformation  matrix 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Work  storage 

:  Coefficients  of  thermal  expansion 
:  Not  used 

:  Membrane  thickness 
:  Not  used 
:  Not  used 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 

:  Array  containing  sub-element 
integral  values 


5.  Output  Arguments: 


FT  :  Membrane  contribution  to  element 

thermal  load  matrix 

SZALEL  ;  Membrane  contribution  to  element 
thermal  stress  matrix 
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6.  Error  Returns:  None 

7.  Calling  Sequence: 

(FT,  DELTM,  SZALEL,  TES,  TESS,  BMT,  EM,  EG,  TMS,  TFS, 

EX,  EY,  GXY,  VXY,  FMV,  ALFHAX,  ALFHAY,  GAMXY,  T,  TO, 

TI,  FME,  EMI,  EMI,  SZLM,  SZLM1,  WRK,  DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None. 

11.  Storage  Required:  Total  Storage  required  is  60Dl6  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

PFMV1 

MAB 

MATB 

MSB 

3.4 .  Remarks :  None 
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1.  Subroutine  Name:  PFMV1 


2.  Purpose:  Generate  membrane  contribution  to  element 
thermal  load  matrix  in  local  coordinates 

3.  Equations  and  Procedures:  The  integral  values  across 
the  sub-elements  are  re-arranged.  The  membrane  contri¬ 
bution  for  each  sub-element  is  generated  in  FMV  by 
direct  formulation  as  a  function  of  the  integral  values 
and  the  material  properties  matrix.  The  sub-element 
matrices  are  placed  in  FMV1  and  pre-multipled  by  BMT. 

4 .  Input  Argument  s : 

DELC  :  Array  containing  sub-element  integral  values 
EG  :  Material  properties  matrix  oriented  to 

material  angle 

BMT  :  Array  containing  revised  formulation  for 

membrane  thermal  load  matrix  in  local 
coordinates 

FMV  :  Work  storage 

T  :  Membrane  thickness 

3.  Output  Arguments: 

FMV1  :  Membrane  thermal  load  matrix  in  local 

coordinates 

DELPQ,  :  Re-arranged  sub-element  integral  values 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(FMV1,  DELC,  EG,  BMT,  FMV,  DELPQ,  T) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  766^  Bytes. 

12.  Subroutine  User:  PFMTS 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  APRT 


2.  Purpose:  Provide  print  of  intermediate  triangular 
thin  shell  element  computations 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments: 

LT  :  Membrane/flexure  indicator 

LT1  :  Not  used 

LT2  :  Not  usta 

DELPQ  :  Array  containing  sub-element  integral 

values 

RL1,  :  Sub-element  coordinates 

RL2, 

RL3 

Rl,  :  Reference  system  element  coordinates 

R2, 

R3 

RO  :  Origin  of  sub-element  coordinate  system 

El,  :  Sub-element  coordinate  differences 

E2, 

E3, 

E 

TGS  :  Sub-element  to  geometric  coordinates 

transformation  matrix 

TBF  :  Flexure  sub-element  to  geometric  system 

coordinates  transformation  matrix 
TGSF  :  Flexure  geometric  to  reference  system 
coordinates  transformation  matrix 
TMS  :  Membrane  sub-element  to  reference  system 

coordinates  transformation  matrix 
TFS  :  Flexure  sub-element  to  reference  system 

coordinates  transformation  matrix 
EM  :  Material  properties  matrix 

EG  :  Material  properties  matrix  oriented  to 

material  angle 

TE3  :  Material  angle  transformation  matrix 

TBM  :  Membrane  sub-element  to  geometric 

coordinates  transformation  matrix 
TGSM  :  Membrane  geometric  to  reference  system 
coordinates  transformation  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 
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7.  Calling  Sequence: 

(LT,  LT1,  LT2,  DELPQ,  RL1,  RL2,  RL3,  Rl,  R2,  R3,  RO, 

El,  E2,  E3,  E,  TGS,  TBF,  TGSF,  TMS,  TFS,  EM,  EG, 

TES,  TBM,  TGSM) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  B2C1g  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  PTFGS 


2.  Purpose:  Generate  flexure  geometric  to  reference 
system  coordinates  transformation  matrix 

3.  Equations  and  Procedures:  The  flexure  geometric  to 
reference  system  coordinates  transformation  matrix  is 
generated  from  the  TGS  matrix  and  the  sub-element 
coordinates.  The  effect  of  mid-point  suppress 
contained  in  this  transformation  matrix  suppression. 

4.  Input  Arguments: 

NL  :  Array  containing  element  definition 

grid  point  numbers 

TGS  :  Sub-element  to  geometric  transformation 

matrix 

TBF  :  Not  used 

XD,  :  Work  storage 

YD, 


BI 

AMAT  :  Array  containing  sub-element  coordinates 

5.  Output  Arguments: 

TGSF  :  Flexure  geometric  to  reference  system 
coordinates  transformation  matrix 

6.  Error  Returns:  None 

7.  Galling  Sequence: 

<NL,  TGS,  TBF,  TGSF,  XD,  YD,  L,  AI,  BI,  AMAT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  582^  Bytes. 

12.  Subroutine  User:  FLUG2 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  FKF 


2.  Purpose:  Generate  the  flexure  contribution  to  the 
triangular  thin  shell  element  stiffness  matrix 

3.  Equations  and  Procedures:  The  sub-element  flexure 
contributions  are  generated  and  assembled  into  a 
work  area.  A  transformation  is  then  applied  to  the 
reference  coordinate  system. 

4.  Input  Arguments: 


IASSY 


DELPQ 

EM 

EG 

TMS 

TFS 

IASEM 

AD 

CM 

AIJ 

EX 

EY 

GXY 

VXY 

ALPHAX 

AI.PHAY 

GAMXY 

T 

IPRT 

AK1 

ROW 

ROWN 


:  Control  indicating  flexure  contribution 
will  supplement  membrane  contribution  or 
flexure  contribution  alone  is  requested 
:  Array  containing  sub-element  integrals 
:  Not  used 

:  Material  properties  matrix  oriented 
to  material  angle 
:  Not  used 

:  Flexure  sub-element  to  system  reference 
coordinates  transformation  matrix 
:  Work  storage  for  assembly  control  array 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Flexure  thickness 
:  Intermediate  results  print  control 
:  Work  storage 
:  Work  storage 
:  Work  storage 


5.  Output  Argument: 


AK  :  Flexure  contribution  to  element 

stiffness  matrix 


6.  Error  Returns:  None 


7.  Calling  Sequence: 


(AK,  I ASSY,  DELPQ,  EM,  EG,  TMS,  TFS,  IASEM,  AD,  CM, 

AIJ,  EX,  EY,  GXY,  VXY,  ALFHAX,  ALPHAY,  GAMXY,  T, 

IPRT,  AKi,  ROW,  ROWN) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 
1C.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  772l6  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

DCD 

ASSY2 

CCB 

14:  Remarks:  None 
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1.  Subroutine  Name:  CCB 

T 

2.  Purpose:  Perform  triple  product  multiplication,  A  SA, 
where  S  is  a  symmetric  matrix  stored  lower  half  by  rows 

3.  Equations  and  Procedures:  A  row  of  the  intermediate 
matrix  product  A'^S  is  generated  at  a  time.  From  the 
product  of  this  row  and  A,  a  row  of  the  final  triple 
product  is  generated. 

Options  are  present  for  scalar  multiplication  of  the 
triple  product,  summing  the  triple  product  into  an 
existing  matrix,  and  deleting  upper  rows  of  the  matrices 
from  the  operation. 

4.  Input  Arguments: 

A  :  First  input  matrix,  doubly  dimensioned  in 

calling  program 

SYM  :  Second  input  matrix,  symmetric,  singly  sub¬ 
scripted,  stored  lower  half  by  rows 
ND,MD  :  Dimensioned  size  of  A 

N,M  :  Actual  size  of  A 

N1  :  Number  of  upper  rows  to  be  deleted  in  the 

operation 

SCAL  :  Scalar  multiplier 

IASSY  :  Sum  option  indicator 

ROW,ROWN:  Work  storage 

5 .  Output  Argument : 

T 

AN  :  Triple  product  of  A  SA,  symmetric,  singly 

subscripted,  stored  lower  half  by  rows. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(A,  SYM,  AN,  ND,  MD,  N,  M,  Nl,  SCAL,  IASSY,  ROW,  ROWN) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  566^  Bytes. 

12.  Subroutine  User:  PLUG2 
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Subroutines  Required: 
Remarks :  None 


None 
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1.  Subroutine  Name:  PFP 

2.  Purpose:  Generate  element  pressure  load  matrix  for 
the  triangular  thin  shell  element 

3.  Equations  and  Procedures:  The  element  pressure  load 
matrix  is  generated  in  local  coordinates  and  then 
transformed  to  reference  system  coordinates. 

4.  Input  Arguments: 

IMS  :  Not  used 

TFS  :  Flexure  sub-element  to  reference  system 

transformation  matrix 

DELPQ  :  Array  containing  sub-element  integral  values 
P  :  Pressures  at  element  definition  points 

FPB  :  Work  storage 

5.  Output  Arguments: 

FP  :  Element  pressure  load  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

( FP,  TMS,  TFS,  DELPQ,  P,  FPB) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11 .  Storage  Required : 

Total  storage  required  is  2A2^  bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  MATB 

14 .  Remarks :  None 
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1.  Subroutine  Name:  PSTF 

2.  Purpose:  Generate  flexure  contribution  to  element 
stress  matrix  for  the  triangular  thin  shell  element 


3.  Equations  and  Procedures:  The  sub-element  stress 
matrices  are  generated  and  assembled  into  one  matrix. 
This  matrix  is  then  transformed  to  reference  system 
coordinates  and  the  stress  angle  is  applied. 

4.  Input  Arguments: 


RL1 

RL2 

RL3 

TMS 

TPS 


EM 

EG 

SNM 

TES 

EX 

EY 

GXY 

VXY 

ALFHAX 

ALPHAY 

GAMXY 

T 

R 

U 

X 

Y 

AMI 

AM2 

AM3 

AM4 

G 


:  Sub-element  coordinates 
:  Not  used 

:  Flexure  sub-element  to  reference  system 
coordinates  transformation  matrix 
:  Not  used 

:  Material  properties  matrix,  oriented  the 
material  angle 
:  Work  storage 

:  Stress  angle  transformation  matrix 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Flexure  thickness 
:  Not  used 
:  Not  used 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 


5 .  Output  Argument : 


S  :  Flexure  contribution  to  element  stress  matrix 

6.  Error  Returns:  None 

7 .  Calling  Sequence : 

(S,  RL1,  RL2,  RL3,  TMS,  TFS,  EM,  EG,  SNM,  TES,  EX,  EY, 
GXY,  VXY,  ALFHAX,  ALPHAY,  GAMXY,  T,  R,  U,  X,  Y,  AMI. 
AM2,  M3,  AM4,  G) 
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Input  Tapes:  None 
Output  Tapes:  None 
Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  is  BDJLg  Bytes. 

Subroutine  User:  PLUG2 

Subroutines  Required: 

MAB 

MSB 

MTB 


Remarks :  None 


1. 


Subroutine  Name :  PFFTS 


2,  Purpose:  Genera/te  flexure  contribution  to  element 
thermal  load  and  thermal  stress  matrices  for  the 
triangular  thin  shell  element 


3.  Eonations  and  Procedures:  The  flexure  contribution  to 
the  element  thermal  load  matrix  in  local  coordinates  is 
generated  by  calling  subroutine  PFFV1.  The  material 
angle  transformation  is  applied  and  the  transformation 
from  local  to  reference  system  coordinates  is  performed. 


The  flexure  contribution  to  the  element  thermal  stress 
matrix  is  generated  and  transformed  to  the  selected 
stress  angle. 


4.  Input  Arguments: 


DELTF 

TES 

TESS 

BFT 

EM 

EG 

TMS 

TFS 

EX 

EY 

GXY 

VXY 

FFV 

ALHiAX 

ALEHAY 

GAMXY 

T 

TO 

TI 

EFI 

FFE 

FF 

SZLF 

SZLF1 

EFI 

WRK 

DELPQ 


Average  flexural  temperature 
Material  angle  transformation  matrix 
Stress  angle  transformation  matrix 
Flexural  thermal  load  formulation  revision 
Not  used 

Material  properties  matrix,  oriented  to 
material  angle 
Not  used 

Flexure  sub-element  to  reference  system 

coordinates  transformation  matrix 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Flexure  thickness 
Not  used 
Not  used 
Work  storage 
Work  storage 
Work  storage 
Work  storage 
Work  storage 
Work  storage 
Work  storage 

Array  containing  sub-element  integrals 
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5.  Output  Arguments: 

FT  :  Flexure  contribution  to  element  thermal 

load  matrix 

SZALEL  :  Flexure  contribution  to  element  thermal 
stress  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(FT,  DELTF,  SZALEL,  TES,  TESS,  BFT,  EM,  EG,  TMS, 

TFS,  EX,  EY,  GXY,  VX Y,  FFV,  ALPHAY,  ALFHAY,  GAMXY, 

T.  TO,  TI,  EFI,  FFE,  FF,  SZLF,  SZLF1,  EF1,  WRK, 

DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required;  Total  storage  required  is  656^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutine  Required:  PFFV1 

PFFV1 

MAB 

MATB 

MSB 

1^.  Remarks:  None 
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1.  Subroutine  Name:  PFFV1 

2.  Purpose:  Generate  flexure  contribution  to  element 
thermal  load  matrix  In  local  coordinates 

3.  Equations  and  Procedures:  The  array  containing  the 
sub-element  integral  values  is  re-arranged.  The  sub¬ 
element  thermal  load  matrices  are  generated  from  the 
integral  values  and  the  material  properties  matrix. 

The  sub-element  thermal  load  matrices  are  assembled 
into  one  matrix  and  then  multiplied  by  BFT  to  apply 
the  revised  thermal  load  formulation. 

*1 .  Input  Arguments: 

DELC  :  Array  containing  sub- element  integral 
value  s 

EG  :  Material  properties  matrix,  oriented  to 

material  angle 

BFT  :  Array  containing  revised  thermal  load 

formulation 

FFV  :  Work  storage 

5.  Output  Arguments: 

FFVT  :  Flexure  contribution  to  element  thermal 

load  matrix  in  local  coo  ‘dinates 
DELPQ  :  Array  containing  re-arranged  sub-element 
integral  values 

6.  Error  Returns:  None 
T.  Calling  Sequence: 

(FFV1,  DELC,  EG,  BFT,  FFV,  DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  9A01^  Bytes. 

12.  Subroutine  User:  PFFTS 

13.  Subroutine  Required:  None 
1JI.  Remarks:  None 
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1 .  Subroutine  Name :  PNC1 

2.  Purpose:  Non- functional 

3.  Equations  and  Procedures:  None 
Input  Arguments:  None 

3.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  None 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutine  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  PNG1 

2.  Purpose:  Non- functional 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  None 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  None 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  F61g  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  EPRT 


2.  Purpose:  Print  generated  triangular  thin  shell 
element  matrices 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments: 

AK  :  Final  element  stiffness  matrix 

S  :  Final  element  stress  matrix 

ANEL  :  Not:- functional 

FN  :  Non-functional 

FT  :  Final  element  thermal  load  matrix 

FP  :  Final  element  pressure  load  matrix 

SZALEL  :  Final  element  thermal  stress  matrix 

15.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(AK,  S,  ANEL,  FN,  FT,  FP,  SZALEL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  JlFO^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None. 
lh.  Remarks:  None 
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1.  Subroutine  Name:  PLAS2D 

2.  Purpose:  Non- functional 

3.  Equations  and  Procedures:  None 
A.  Input  Arguments:  None 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  None 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 
1*1.  Remarks:  None 
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1.  Subroutine  Name:  PTBF 

2.  Purpose:  Generate  flexure  sub-element  to  geometric 

axes  transformation  matrix 

3.  Equations  and  Procedures:  The  inverse  of  the  desired 
matrix  is  generated  by  direct  assignment  into  a  work 
area.  Inversion  is  performed  to  obtain  the  final 
transformation  matrix. 

4.  Input  Arguments: 


TGSF 

:  Not  used 

RL1 

RL2 

:  Sub-element  coordinates 

RL3 

IPRT 

:  Intermediate  element  print  indicator 

L 

:  Work  storage 

M 

:  Work  storage 

U 

:  Work  storage 

TI 

:  Work  storage 

B 

:  Work  storage 

BFF 

:  Work  storage 

BFO 

:  Work  storage 

Output 

Arguments:  None 

TBF 

:  Flexure  sub-element  to  geometric 

transformation  matrix 


6.  Error  Returns:  None 

7.  Calling  Sequence: 

(TBF,  TGSF,  RL1,  RL2,  RL3,  IPRT,  L,  M,  U,  TI, 

B,  BFF,  BFO) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  CCC^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

MAB 

MINV 

14.  Remarks:  None 
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1. 


Subroutine  Name:  PLUG  6 


2.  Purpose:  To  form  the  element  matrices  for  a  triangular 
cross  section  ring  discrete  element  with  applications 
towards  the  analysis  of  thick  walled  and  solid  axisym- 
metric  structures  of  finite  length.  It  may  be  used  to 
form  the  assembly  of  any  axisymmetric  structure  taking 
into  account: 

(1)  Arbitrary  axial  variations  in  geometry 

(2)  Axial  variation  in  orientation  of  material  axes  of 
orthotropy 

(3)  Radial  and  axial  variations  in  material  properties 

(4)  Any  axisymmetric  loading  systems  including  pressure, 
prestrain,  prestress,  and  temperature 

The  complete  discrete  element  representation,  consists  of 
the  algebraic  expressions  for  the  following  matrices: 

(1)  Stiffness 

(2)  Pressure  load 
1 3)  Thermal  load 
?4)  Pre-strain  load 

(5)  Pre-stress  load 

(6)  Stress 

(7)  Mass 

(8)  Structural  damping 

(9)  Viscous  damping 

3.  Equations  and  Procedures:  The  development  of  the  complete 
element  representation  arises  from  the  Laprangian  (varia¬ 
tional)  equation 

+  i  s4>2  +  s  d  \ 

air  '5~57  "51T  =  0 

1  X  X  \  X  i 


where 

qr  =  r  generalized  displacement  coordinates 

(J)^  =  total  potential  energy 

<J>2  =  structural  damping  dissipation  energy 

<J>3  =  viscous 

<j>i+  =  kinetic  energy 

The  subsequent  development  of  the  element  matrices  is  then 
provided  in  algebraic  form  to  the  coded  program,  which 
follows  the  format: 
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(1)  The  input  data,  used  in  forming  the  matrices,  is 
processed  and  organized  for  computation. 

(2)  By  subroutine  TRAIC,  the  coordinate  transformation 
matrices,  and  the  table  of  integrals  is  formed.  In 
routine  TRAIE,  the  material  properties  matrices  are 
formed. 

(3)  Using  tne  above  mentioned  matrices  and  integrals, 

the  program  then  generates,  the  stiffness, 
pressure  load,  thermal  load,  stress,  pre-strain, 
pre-stress,  mass,  structural  damping,  and  viscous 
damping  matrices,  and  the  stress,  thermal  stress, 
pre-strain,  pre-stress,  pre-strain  load,  and  pre¬ 
stress  load  vectors. 

(4)  After  each  significant  matrix,  vector,  etc.,  is 
formed,  the  program  prints  out  the  desired  results. 


Input  Arguments: 


I  PL 

NN0 

XC 

YC 

ZC 

TEL 

PEL 

Q$EL 

IP 

N0RD 

NR$EL 

IN0 

N0D0RD 

KK 

KF 

K$ 

KM 

KD$ 

KDV 

KN 

lUiEL 

EP$L0N 

$IGZER 

MAT 

EXTRA 

NDIR 

NDEG 

IC0NT 


Plug  number 

Number  of  node  points 

X  -  coordinates  of  nodes  points 

Y  -  coordinates  of  node  points 

Z  -  coordinates  of  node  points 

Temperatures  at  the  node  points 

Pressures  at  the  node  points 

Input  displacements  of  the  node  points 

Number  of  extra  cards 

Order  of  element  stiffness  matrix 

Number  of  rows  in  the  stress  matrix 

Number  of  nodes 

Node  point  numbers 

Code  for  computation  of  element  stiffness  matrix 
Code  for  computation  of  element  thermal  load 
Code  for  computation  of  element  stress  matrix 
Code  for  computation  of  element  mass  matrix 
Code  for  computation  of  structural  damping  matrix 
Code  for  computation  or  viscous  damping  matrix 
Code  for  computation  of  incremental  damping  matrix 
Dummy 

Pre-strain  load  vector 
Pre-stress  load  vector 
Material  properties  matrix 
Extra  information  (angles,  etc.) 

Number  of  directions  of  movement  per  grid  point 
Number  of  types  of  movement  allowed  per  grid  point 
Code  for  use  of  grid  point  axes 


Output  Arguments: 


5. 

NERR  :  Error  return 

N0INK  :  Number  of  elements  in  lower  half  matrices 

AKELXP  :  Stiffness  matrix 

ANEL  :  Incremental  stiffness  matrix 

FTXP  :  Thermal  load  +  pressure  load  matrix 

$TR$XP  :  Stress  matrix 

T$  :  Thermal  stress  matrix 

XMA$XP  :  Mass  matrix 

DAMPV  :  Viscous  damping  matrix 

DAMP$  :  Structural  damping  matrix 

N$EL  :  Number  of  elements  in  stress  matrix 

NMA$$  :  Number  of  elements  in  mass  matrix 

NP&L  :  Number  of  elements  in  viscous  damping  matrix 

NP|$  :  Number  of  elements  in  structural  damping  matrix 

GPAXEL  :  Grid  point  axes  transformation 

6.  Error  Returns 

NERR  =  0  No  Error 

=  1  Plug  Number  Incorrect 

=  2  Number  of  Nodes  Incorrect 

=  3  Number  of  Input  Points  Incorrect 

=  4  Order  of  Matrix  (nord)  Incorrect 

7.  Culling  Sequence: 

(IPL,  NN0,  XC,  YC,  EC,  TEL,  PEL,  Q$EL,  IP,  N0RD,  NERR,  N0INK, 
AKELXP,  ANEL,  FTXP,  $TR$XP,  T$,  XMA&XP,  DAMPV,  DAMP$ , 

NR$EL,  IN0,  N0D0RD,  NMA$$,  NP$L,  NP$$,  N$EL,  KK,  KF,  K$, 

KM,  KD$,  KDV,  KN,  IU$EL,  EP$L0N,  $IGEER,  MAT,  EXTRA, 

GPAXEL,  NDJ.R,  NDEG,  IC0NT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10,  Scratch  Tapes:  None 


Storage : 


ALFBAR(4)  FT(6)  $TRE$$(4,6)  T&(4)  XMA$$(21)  D$M(4) 

D$(2i)  DV ( 2 1 )  AKELXP  (45)  XMA$XP  (45)  D$XP  45)  DVXP(45 
XC(3)  YC(3)  2C(3)  N0D0RD( 3 )  X(3)  Y(3)  E(3)  P$LMAT  (6,4 
PEL  (6)  Q$EL(6)  ANEL(6)  TEMP2(6,6)  IU$EL  (6)  LI$TP(6) 

TEL  (12,3)  El  (4,4)  DAMP$(6)  DAMPV(6)  A(9,6)  B(4,6) 
ALI$TP  (6)  FTXP(9)  $TR$XP  (4,9)  P$LXP  (9,4)  P$$(4) 

MAT(l)  AKEL1  (6,6)  AKEL2  (6,6)  AMCURL  (21)  TEMP  (6) 
TEMPI  (4)  XMA$$1  (6,6)  TMG  (2,2)  AMCURL  (21)  AMBAR  (2,2) 
DZER0  (6,4)  '  '  '  ' 
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Subroutine  User:  ELPLUG 
Subroutines  Required: 


ELTE$T 

TRAIT$ 

TIEPRT 

TIMPRT 

EXP$IX 

T$TPRT 


TRAIE 

TRAIM 

TIKPRT 

TRAI$T 

TRAIFT 


TRAIK 

TF$PRT 

TFPPRT 

PL6PRT 

TI$PRT 


TRAIFP 

EXPC0L 

TRAI$ 

TRCPRT 

MFRD 


TFTPRT 

TRAIC 

TT$PRT 

TPRD 

TRAIF$ 


Remarks : 


None 


1.  Subroutine  Name:  EXPC0L 

2.  Purpose:  To  generate  a  matrix  [b]  ,  given  a  specific 

input  matrix  [Aj  ,  for  Plug  6. 

The  purpose  of  this  operation  is  to  impose  the  conditions 
that  flexure  terms  "v"  are  zero. 

3.  Equations  and  Procedures:  matrix  terms  are  formed  by 

direct  assignment. 

4.  Input  Arguments:  [a]  :  Input  Matrix 

5.  Output  Arguments:  [b]  :  Output  Matrix 

6.  Error  Returns:  None 

7-.  Calling  f-.quence:  (A,  B) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  166^  Bytes. 

12.  Subroutine  User:  PLUG  6 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  EXP$IX 

2.  Purpose:  To  generate  a  symmetric  matrix  [b]  , 

given  a  specific  input  symmetric  matrix  [a]  ,  for 

Plug  6.  The  purpose  of  this  operation  is  to  impose  the 
condition  that  flexure  terms  "v"  are  zero. 

3.  Equations  and  Procedures:  The  matrix  terms  are  formed 
by  direct  assignment. 

4.  Input  Arguments:  [a]  :  Input  Matrix 

5.  Output  Arguments:  [b]  :  Output  Matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (A,  B) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  206^  Bytes. 

12.  Subroutine  User:  Plug  6 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  TRAIC 

2.  Purpose:  To  generate  coordinate  transformation  matrices 

for  triangular  ring  which  vary  with  coordinates  and 
generate  integrals  for  future  use. 

1.  Equations  and  Procedures:  The  coordinate  matrix  [GAMABQ] 
is  formed  by  algebraic  assignment.  The  table  of  inte¬ 
grals,  DELINT,  is  formed  by  algebraic  methods  using  the 
function  subprogram  AI. 

4.  Input  Arguments:  R,Z:  Coordinates  of  node  points 

WIPR:  Print  control 

6.  Output  Arguments: 

GAMABQ:  Coordinate  matrix 
DELINT:  Table  of  integrals 
DCURL:  Matrix  transformation 

ISING:  Error  return  code 

6.  Error  Returns:  If  GAMABQ  cannot  be  generated  due  to 
singular  matrix  then  ISING  is  set  to  one. 

7.  Calling  Sequence:  (R,  Z,  GAMABQ,  DELINT,  DCURL,  ISING, 

WIPR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  R(3),  Z(3),  GAMABQ  (6,6),  DELINT  (12), 

DCURL  (4,6),  LL(6),  MM(6) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  MINV,  AI,  TESTJ,  TRCPRT 

14.  Remarks:  None 
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1. 


Subroutine  Name:  TESTJ 


2. 

3. 


Purpose:  To  check  DELINT  (PLUG6)  for  any  negative  or 

incorrect  integrals;  If  any  errors  are  noted,  the 
integrals  are  recomputed  by  an  approximation  method. 

Equations  and  Procedures:  The  checks  are  performed  by 
logical  if  statements.  The  integral  approximation  is 


whers 


XPZQ  d  x  dZ  &  XP  •  ZQ  v  a 


i  (Xi  +  X2  +  X3]  ;  Z  =  |  [zx  +  Ze  +  Z3] 
\  [WV  +  X2(Z3-21)  +  X3<Z1-Z2)] 


4, 

Input  Arguments:  DELINT  (I)  value  of  the  i 

X:  X  coordinates 

Z:  Z  coordinates 

WIPR:  print  control 

th  integral 

5* 

Output  Arguments:  DELINT  (I):  recomputed 

integral 

6. 

Error  Returns:  None 

7. 

Calling  Sequence:  CALL  TESTJ  (DELINT,  X,  Z, 

,  WIPR) 

8. 

Input  Tapes:  None 

9. 

Output  Tapes:  None 

10. 

Scratch  Tapes:  None 

11. 

Storage  Required : 

DELINT  (12),  DLINT  (12),  X  (1),  Z  (1),  X0  (3),  Z0  (3). 
DELTAX  (1),  DELTAZ  (1),  XHAT  (1),  ZHAT  (1) 

12. 

Subroutine  User:  TRAIC 

13. 

Subroutine  Required:  None 

14.  Remarks:  If  the  test  necessitates  re computation,  the  new 
integral  values  will  be  stored  in  the  old  locations,  thus 
destroying  the  originals. 
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1.  Subroutine  Name:  TRCPRT 

2.  Purpose:  To  print  elements  formed  in  TRAIC 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments: 

GAMABQ:  coordinate  matrix 

DELINT:  table  of  integrals 

DCURL  :  matrix  of  integrals 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  ( GAMABQ,  DELINT,  DCURL) 

8'.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  320^g  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutine  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  TRAIE 

2.  Purpose:  Tc  generate  the  transformed  matrix  of  elastic 

constants 


3.  Equations  and  Procedures:  The  routine 


a |  Generates  the  transformation  matrix 

b)  Generates  the  elastic  constants  matrix 

c)  Generates  the  transformed  elastic  constant  matrix 


4. 


Input  Arguments: 


EH,  ETHETA,  EZ 
VR0,  V0Z,  VZR 
GRZ 
GAM 

El 


Moduli  of  elasticity  (Young's) 

Poissons  ratio 

Modulus  of  rigidity 

Angle  between  material  axes  and 

element  axes 

Work  storage 


5.  Output  Arguments: 

TE0  :  Transformation  matrix 

EM  :  Elastic  constants  matrix 

E  :  Transformed  elastic  constant  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(ER,  ETHETA,  EZ,  VR0,  V0Z,  VZR,  GRZ,  GAM,  TE0,  EM,  E, 

El,  WIPR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required;  Total  Storage  required  is  602^  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  MPRD,  TPRD 

14.  Remarks;  None 


382 


1.  Subroutine  Name:  TIEPRT 

2.  Purpose*  To  print  matrices  formed  in  TRAIE 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  TE0  :  Transformation  matrix 

EM  :  Elastic  constant  matrix 

E  :  Transformed  elastic  constant  matrix 

5-  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (TE0,  EM,  E) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  294^  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name;  TRAIK 

2.  Purpose;  Generate  stiffness  matrix  for  triangular  ring 

3.  Equations  and  Procedures;  The  program  uses  the  table  of 
integrals  to  form  the  first  intermediate  matrix.  This 
matrix  is  then  transformed  to  form  the  final  stiffness 
matrix. 

4.  Input  Arguments: 

GAMABQ:  Transformation  matrix 

E  :  Transformed  elastic  constant  matrix 

DELINT;  Table  of  integrals 

WIPR  :  Print  control 

AKEL1,  AKEL2,  ACURL:  Work  storage 

5.  Output  Arguments:  AKEL  :  Stiffness  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  ( GAMABQ,  E,  DELINT,  AKEL,  WIPR,  AKELl, 

AKEL2,  ACURL) 

8.  Input  Tapes:  None 

9-  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

GAMAFU  (6, 6),  E(10),  DELINT  (12),  AKEL  (21)  AKELl  (6,6), 
AKEL2  (6,6),  ACURL(21 ) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  TPRD,  MPRD 

14.  Remarks:  None 
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1.  Subroutine  Name;  TIKPRT 

2.  Purpose:  To  display  matrices  generated  in  TRAIK 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  AKEL  :  Stiffness  matrix 

ACURL  :  Intermediate  stiffness  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (AKEL,  ACURL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  lE8.,g  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  TRAIFP 


2.  Purpose:  To  generate  the  pressure  load  vector  for 
triangular  ring. 

3.  Equations  and  Procedures:  The  program 

1. )  Generates  necessary  constants 

2. )  Generates  pressure  load  vector  (non-transformed) 

3. )  Transforms  pressure  load  vector 

4.  Input  Arguments: 

R,Z:  Coordinates  of  node  points 

P:  Node  point  pressures 

GAMABQ:  Coordinate  transformation  matrix 

WIPR:  Print  control 

5.  Output  Arguments: 

FCURLP:  Non-transformed  pressure  load  vector 

FP:  Transformed  pressure  load  vector 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(R,  Z,  P,  GAMABQ,  FP,  WIPR,  FCURLP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  R(3),Z(3),  P(3),GAMABQ(6,6),FP(6), 
F(3),FCURLP(6),DELTA(6) 

12.  Subroutine  User:  PLUGS 

13.  Subroutines  Required:  TPRD 

14.  Remarks:  None 


1.  Subroutine  Name:  TFPPRT 

2.  Purpose:  display  the  non-transformed  and  transformed 

pressure  load  vectors. 

3.  Equations:  None 

4.  Input  arguments: 

PP:  transformed  pressure  load  vector 

FCURLP:  non-transformed  pressure  load  vector 

5.  Output  arguments:  None 

6.  Error  returns:  None 

7.  Calling  sequence:  (FP,  FCURLP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  Storage  required  is  1E8-^  Bytes 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  TRAIFT 

2.  Purpose;  To  exonerate  a  thermal  load  vector  for  a  triangular 
ring  element 

3.  Equations  &  Procedures:  The  input  matrices  are  manipulated 
by  matrix  algebra  to  form  the  thermal  load  vector. 

4.  Input  arguments: 

ALPBAR:  vector  of  coefficients  of  linear  thermal  expan¬ 

sion 

TMTZRO:  base  temperature 

GAMABQ:  transformation  matrix 

T3CURL:  matrix  containing  integral  values 

S:  transformed  elastic  constant  matrix 

WIPR:  print  control 

5 .  Output  arguments : 

FT:  thermal  load  vector 

6.  Error  returns:  None 
7*  Calling  sequence: 

(ALFBAR,  TMTZRO,  GAMABQ,  DCURL,  E,  FT,  WIPR) 

8.  Input  tapes:  None 

9.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage:  ALFKAR(4),  GAMABQ(6,6),  DCURL(4,6),  E(10),  FT(6), 

TEMPI  (4),  TEMP2(6),  SAVE  (4) 

1C'.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  MPRD,  TPRD 

14 .  Rema  i’ks :  None 
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1.  Subroutine  Name:  TFTPRT 

2.  Purpose:  To  display  thermal  load  vector  for  tiiangular 
ring  element 

3.  Equations*  None 

4 .  Input  arguments : 

FT:  thermal  load  vector 

ALFBAR:  coefficients  of  linear  expansion 

TMTZR0:  base  temperature 

5.  Output  arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (FT,  ALFBAR,  TMTZR0) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 
10-  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  250^  Bytes. 

12.  Subroutine  User:  PLUGo 

13.  Subroutines  Used:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  TRAI$ 

2.  Purpose:  To  generate  the  stress  matrix  for  triangular 
ring  element 

3.  Equations  and  Procedures:  Given  input  constants, _ an 
intermediate  matrix  is  formed,  which  is  then  multiplied 
by  the  system  matrices  to  form  the  final  matrix 

4.  Input  Arguments: 

R,  Z:  coordinates  of  node  points 

GAMABQ :  coordinate  transformation  matrix 

E:  elastic  constant  matrix 

WIPR:  print  control 

DZER0:  work  space 

TEMP:  node  point  temperatures 

5.  Output  Arguments:  $TRE$$:  stress  matrix 

6.  Error  returns:  None 

7.  Calling  sequence:  (R,  Z,  GAMABQ,  E,  STRESS,  WIPR,  DZERO, 

TEMP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  R(3>  Z(3),  GAMABQ(6, 6),  E(10),  STRESS (4,6),  DZER0(4,6), 

TEMP (4, 6) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  MFRD 

14.  Remarks:  None 


\ 
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1.  Subroutine  Name:  TI$PRT 

2.  Purpose:  To  display  the  stress  matrix  for  a  triangular 
ring  element 

3.  Equations:  None 

4.  Input  Arguments: 

$TRE$$:  stress  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  ($TRE$$) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  Storage  required  is  1PC16  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  None 
1*1 .  Remarks :  None 


1.  Subroutine  Name:  TRAIT$ 

2.  Purpose:  To  generate  thermal  stress  vector  for  a 
triangular  ring  element 

3.  Equations  and  Procedures:  The  input  matrices  are  combined, 
using  matrix  algebra,  to  form  the  thermal  stress  vector. 

4.  Input  Arguments: 

E:  elastic  constant  matrix 

ALFRAR:  linear  thermal  expansion  coefficients 

TMTZR0:  base  temperature 

WIPR:  print  control 

5 .  Output  Arguments : 

T$:  thermal  stress  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (E,  ALFBAR,  TMTZR0,  T$,  WIPR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11 .  Storage : 

E(10),  ALFBAR  (4).  T$(4),  SAVE  (4) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  MPRD 

14.  Remarks:  None 


392 


1.  Subroutine  Name:  TT$PRT 

2.  Purpose:  to  display  the  thermal  stress  vector  of  a 
triangular  ring  element 

3.  Equations:  None 

4.  Input  Arguments: 

T$:  thermal  stress  vector 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (T$) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  Storage  required  is  lCO^  Bytes 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  TRAIM 

2.  Purpose:  To  generate  a  mass  matrix  for  a  triangular  ring 
element 

3.  Equations  and  Procedures:  The  program 

H  )  Forms  a  transformation  matrix  [TMG] 

(2)  Generates  a  matrix  [R]  which  is  a  function  of  the 

mass  coefficients.  ^  _ 

(3)  Generates  a  matrix  [MJ  which  is  a  function  of  [m] 
and  the  table  of  integrals. 

(4)  Generates  the  mass  matrix  [m]  which  is  a  function  of 
ID  and  the  transformation  matrix  [GAMABQ]  . 

[M]=  [GAMABQ]  7  [ft]  [GAMABQ] 

4.  Input  Arguments: 

AMASS1,  AMASS2:  mass  coefficients 

GAM:  angle  between  material  axes  and  element  axes 

GAMABQ:  coordinate  transformation  matrix 

DELINT:  table  of  integrals 

WIPR:  orint  control 

XMASS1,  TEMP,  AMCRUL,  TEMPI,  AMBAR:  storage 

TMG:  transformation  matrix 

5.  Output  Arguments: 

XMASS:  mass  matrix 

6.  Error  Return:  None 

7.  Galling  Sequence: 

(AMASS1,  AMASS2,  GAM,  GAMABQ,  DELINT,  XMA$$,  WIPR,  XMASS1, 
TEMP,  TMG,  AMCURL,  TEMPI,  AMBAR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 
1"L  •  Stor8.§G  i 

AMASS  (2),  GAMABQ  [6, 6),  DELINT(12), 

XMASS(21),  XMASS1  (6, 6),  TEMP(6,6),  TMG(2,2),  AMBAR (2, 2), 

TEMPI (2,2),  AMCURL (21) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  TPRD,  MPRD 

14.  Remarks:  None 
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1.  Subroutine  Name:  TIMPRT 

2.  Purpose:  To  display  the  mass  matrix  of  a  triangular  ring 
element 

3.  Equations:  None 

4.  Inpu+  Arguments: 

XMASS:  mass  matrix 

AMCURL:  intermediate  mass  matrix 

5.  Output  Arguments:  None 

6.  i^rror  Returns:  None 

7.  Sailing  Sequence:  (XMA$$,  AMCURL) 
ft.  Output  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage: 

Total  Storage  required  is  Bytes. 

12.  Subroutine  User:  FLUG6 

13.  Subroutines  Used:  None 
l’i.  Remarks:  None 
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1.  Subroutine  Name:  TRAIF$ 

?.  Purpose  :  To  generate  pre-strain  load  vector  for  a 
triangular  ring  element. 

3.  Equations  and  Procedures:  The  routine  uses  the  inputed 
matrices  and  combines  these  to  form  the  pre-strain  load 
vector. 

4.  Input  Arguments: 

EP$L0N:  Input  pre- strain  values 

GAMABQ:  Transformation  matrix 

DCURL:  Integral  matrix 

E:  Elastic  constant  matrix 

WIPR:  Print  control 

TEMP:  Dummy  storage 

TEMPI, 

TEMP2:  Dummy  storage 

P$LMAT:  Dummy  storage 

5.  Output  Arguments: 

F$:  Pre-strain  load  vector 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(EP$L0N,  GAMABQ,  DCURL,  E,  F$,  WIPR,  TEMP,  TEMPI,  TEMP2 , 
P^LMAT1) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

EPS  LON  (4) ,  GAMABQ  (6,6),  DCURL  (4,6),  E(10),  FS  (6),  TEMP(l), 
TEMP1(1),TEMP2(6,4),  P$LMAT(6,4) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  MPRD,  TPRD 

14.  Remarks:  None 
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1. 

Subroutine  Name:  TF$FRT 

2 . 

Purpose:  Display  pre-strain  load 
ring 

vector  for  triangular 

3. 

Equations:  None 

4. 

Input  arguments:  F$:  ore-strain 

load  vector 

5. 

Output  arguments :  None 

6. 

Error  returns :  None 

<~7 
(  • 

Calling  sequence:  (F$) 

8. 

Input  tapes:  None 

9. 

Output  Tapes:  None 

10. 

Scratch  tapes:  None 

11. 

Storage  required:  Total  Storage 

required  is  lCO^  Bytes 

12. 

Subroutine  user:  PLUG6 

13. 

Subroutines  required:  None 

l4. 

Remarks:  None 
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1.  Subroutine  Name:  TRAI$T 

2.  Purpose:  To  generate  the  pre-stress  load  vector  for  a 
triangular  ring  element 

3.  Equations  &  Procedures:  The  input  matrices  are  combined 
by  matrix  manipulations  to  form  the  pre-stress  load  vector. 

4.  Input  arguments: 

$IGZER:  column  of  pre-stresses 

GAMABQ:  transformation  matrix 

PCURL;  Integral  value  matrix 

WIPR:  print  control 

5.  Output  arguments: 

F$T:  pre-stress  load  vector 

6.  Error  Returns:  None 
?.  Calling  sequence: 

($IGZER,  GAMABQ,  DCURL,  F$T#  WIPR) 

8.  Input  tapes:  None 
0.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  Required: 

$IGZER(4),GAMABQ(6,6),  DCURL(4,6),F$T(6),  TEMP(6) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  required:  TPRD 

14.  Remarks:  None 
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1.  Subroutine  Name:  T$TPRT 

2.  Purpose:  Pisply  pre-stress  load  vector  for  triangular 
ring  element 

3.  Equations:  None 

h.  Input  arguments:  F$T 
5.  Output  arguments:  None 
0.  Error  returns:  None 
?.  Sailing  Seouence:  (F$T) 

B.  Input  tapes:  None 
0.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage:  Total  Storage  required  is  lCO.^  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  used:  None 
lft.  Remarks:  None 
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1.  Subroutine  Name:  PL6PRT 

2.  Purpose:  To  display  structural  damping,  viscous  damping, 
pre-strain  and  pre-stress  matrices  for  a  triangular  ring 
element 

3 .  Equations :  None 

4.  Input  Arguments: 

D$XP:  structural  damping  vector 
DVXP:  viscous  matrix 
El:  pre-stress  multiplier  matrix 

P$LMAT:  pre-strain  multiplier  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (D$XP,  DVXP,  El,  P$LMAT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  D$XP(45),  DVXP(45),  El(4,4),  P$LMAT(4,4) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  PLUG  5 

2.  Purpose:  To  form  the  element  matrices  for  a  doubly  curved 

ring  (toroidal  ring)  discrete  element.  This  ring  configura¬ 
tion,  defined  by  an  arbitrary  section  of  revolution  of  a 
complete  right  circular  toroidal  shell,  enables  smoothly 
continuous  idealization  of  general  axisymmetric  thin  shell 
problems. 

The  matrices  which  are  formed  are: 

!1)  Stiffness  matrix 

2 )  Stress  matrix 

3)  Thermal  load  matrix  +  pressure  load  matrix 

4)  Thermal  stress  matrix 

3.  Equations  and  Procedures:  There  are  two  cases  treated  for 

this  type  of  element.  They  are: 

(1)  The  angles  of  the  interior  and  exterior  membranes  are 
not  equal  (Toroidal  section) 

(2)  The  angles  of  the  interior  and  exterior  membranes  are 
equal.  (Conic  section). 

In  the  second  case,  the  interior  angle  is  increased  by  a 
factor  of  .50°  so  that  they  can  be  treated  as  in  case  one. 

A  special  case  arises  for  the  degenerate  situation  where 
the  two  angles  equal  90°.  In  this  case  a  different  path 
is  followed. 

A  variational  (Lagrangian)  approach  is  taken  In  formulating 
the  discrete  element  representation.  On  account  of  this,  it 
has  been  found  necessary  to  use  numerical  integration 
techniques,  namely  the  Romberg  technique  and  the  numerical 
quadrature  technique. 

.The  sequence  of  procedures  Is  as  follows;  ' 

(1)  The  first  general  part  of  the  routine  processes  input 
information,  forming  constants  to  be  used  in  calcula¬ 
tions.  Also,  several  constants  are  extracted  from 
the  inputed  material  and  extra  matrices. 

(2)  After  testing  as  to  the  relative  values  of  the  membrane 
angles  (i.e.  equal  or  not),  the  program  selects  the 
correct  path  to  take  in  forming  the  integrals  used  in 
later  calculations.  Either  the  Romberg  or  Numerical 
Quadrature  methods  are  used  to  evaluate  the  integrals. 

Using  the  integrals  and  the  program  constants,  the 
program  forms  several  intermediate  element  matrices. 
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(4)  By  several  matrix  operations  (multiplications, 
transformations,  etc.),  the  stiffness  matrix,  AKEL, 
is  formed. 

(5)  In  like  manners,  the  program  :.’orms  the  thermal  load 
(FTEL)  matrix,  the  pressure  load  (FPEL)  matrix,  the 
combined  thermal  and  pressure  load  (TPEL)  matrix,  the 
stress  ($EL)  matrix,  and  the  thermal  stress  (T$EL) 
matrix. 

(6)  After  all  the  calculations  are  completed,  the  program 
calls  a  sut routine  to  print  all  the  matrices. 

Input  Arguments: 

I PL:  Plug  Number 

NN0:  Number  of  node  points 

R:  X  -  coordinates  of  nodes 

Y:  Y  -  coordinates  of  nodes 

Z;  Z  -  coordinates  of  nodes 

TEMP:  Node  point  temperatures 

P:  Node  point  pressures 

Q$:  Node  point  i  puted  displacements 

IP:  Number  of  extra  cards 

KK:  Code  for  computation  of  element  stiffness  matrix 

KF:  Code  for  computation  of  element  thermal  load 

K$:  Code  for  computation  of  element  stress  matrix 

KM:  Code  for  computation  of  element  mass  matrix 

KN:  Code  for  computation  of  element  incremental  matrix 

KD$:  Code  for  computation  of  element  structural  damping 

KDV:  Code  for  computation  of  element  viscous  damping 

N0RD:  Order  of  element  stiffness  matrix 

MAT:  Material  properties  table 

EXTRA:  Specific  element  information 

NDIR:  Number  of  directions  for  each  grid  point 

NDEG:  Number  of  types  of  movement  allowed 

IUiEL:  Dummy 

EP$L0N:  Pre- strain  load  vector 

$0:  Pre-stresses 

INN0:  Number  of  nodes 

IC0NT:  Code  for  use  of  grid  point  axes 

NR:  Number  of  rows  in  stress  matrix 

N0DE$ :  Node  point  numbers 
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Output  Arguments: 


NERR:  Error  return 

N0INK:  Number  of  elements  in  lower  half  matrices 

AKEL:  Stiffness  matrix 

ANEL:  Incremental  matrix 

TPEL:  Thermal  load  +  pressure  load  matrix 

$EL:  Stress  matrix 

T$EL:  Thermal  stress  matrix 

AMA$$:  Mass  matrix 

DAMPV:  Viscous  damping  matrix 

DAMP$:  Structural  damping  matrix 

N$EL:  Number  of  elements  in  stress  matrix 

NMA$$:  Number  of  elements  in  mass  matrix 

NDAMPV:  Number  of  elements  in  viscous  damping  matrix 

NDAMP$:  Number  of  elements  An  structural  damping  matrix  ° 

GPAXEL:  Grid  point  axes  trar .  formation  matrix 

6.  Error  Returns: 

NERR  =  0  No  error 

=  1  Plug  number  incorrect 

-  2  Number  of  nodes  incorrect 

=  3  Number  of  input  points  incorrect 

=  4  Order  of  matrix  (nord)  incorrect 

7.  calling  Sequence: 

(IPL,  NN0,  R,  Y,  2,  TEMP,  P,  Q$,  IP,  N0RD,  NERR,  N0INK, 

AKEL,  ANEL,  TPEL,  $EL,  T$EL,  AMA$$,  DAMPV,  DAMP$ ,  NR, 

INN0,  N0DE$,  NMA$$,  NDMPV,  NDMF$ ,  N$EL,  KI,  KF,  K$,  KM, 

KD$,  KDV,  KN,  IU$EL,  EP$L0N,  $0  MAT,  EXTRA,  GPAXEL, 

NDIR,  NDEG,  IC0NT ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

T(2i)  W(10,l8)  Wl[l8,l8)  R(2)  Y(2)  2(2)  P(2)  TEMP  (12,3) 
N0DE$(1)  W2  (l8,l8)  W3  (l8,l8)  TAKEL  (l8,l8)  AKEL(1?1) 

GAMM  (10, 18)  XI(6, 12)  YI(6, 12 )  X(6)  B(10,l8)  D(10,10) 

FTEL  (18,1)  GAM (10, lo)  FME0  (10,2)  FME1  (10,2)  FFEQ(10,2) 
FFE1  (10.2)  E(2,2 )  AIK(2,2)  AJK  (2,2)  ET0  (2,1)  ET1(2,1) 

ALT0  (2,1)  ALT1  (2,1)  VI  (18,2)  V2  (18,2)  V3  (l8,l)  V4(l8,l) 
V5  (18,1)  V6  (18.1)  FPEL  (IS)  FPCQ  (10,1)  TPEL  (18)  $EL 
(15,18)  XXI  (3)  EXTRA(l)  $CURL  (15,10)  T$SEL  (15)  TE1  (2,1) 
TE2  (2,1)  EMI  (2,1)  EM2  (2,1)  EP$L0N  (1)  $0  (1)  MAT ( 1 ) 
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12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required 

F4,  F5,  F6,  ELTE$T,  MPRD,  GAMMAT,  $GRLM,  BMATRX,  TPRD, 
FCURL,  $0LVE,  DMATRX ,  M$TR,  PLMX,  FRINT5 

14  .  Remax-ks :  None 


OH  W 


1.  Subroutine  Name;  M#TR 

2.  Purpose:  To  change  the  storage  mode  of  &  matrix. 

3.  Equations  and  Procedures:  MSTR  will  perforin  the  operation 
on  the  right  when  MSA  and  MSR  are  equal  to 

MSA  MSR  PROCEDURE 

0  0  [a]  is  moved  to  [r] 

0  1  The  upper  triangle  elements  of  a  general  matrix 

are  used  to  form  a  symmetric  matrix 

0  2  The  diagonal  element  of  a  general  matrix  are  used 

to  form  a  diagonal  matrix 

1  0  A  symmetric  matrix  is  expanded  to  form  a 

general  matrix 

1  1  [aJ  is  moved  to  [r] 

1  2  The  diagonal  elements  of  a  symmetric  matrix  are 

used  to  form  a  diagonal  matrix 

2  0  A  diagonal  matrix  is  expanded  to  form  a  general 

matrix 

2  1  A  diagonal  matrix  is  expanded  to  form  a  symmetric 

matrix 

2  2  [a]  is  moved  to  [r] 

The  codes  for  M$A  and  MS'R  stand  for 

General  matrix  form 
Symmetric  matrix  fora 
Diagonal  matrix  fora 

4.  Input  Arguments: 

[A]  Input  matrix 

N  Number  of  rows  and  columns  injA]  and  [r] 

M#A  Code  designating  storage  mode  of  [a] 

M#R  Code  designating  storage  mode  of  [r] 


5-  Output  Arguments: 

[r]  :  Output  matrix. 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (A,  R,  N,  M,  $  A,  M  %  R) 

8.  Input  Tapes:  None 

9  .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Storage  Require'.  Total  Storage  required  is  29C^g  Bytes. 

12.  Subroutine  User:  PLUG  5 

13.  Subroutines  Required:  L  0C 

14 .  Remarks:  Matrix [a] may  not  be  in  the  same  storage  as  [r]  . 
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1.  Subroutine  Name:  R0MBER 

2.  Purpose:  To  integrate  f  (x)  from  x  =  a  to  x  =  b. 

3.  Equations  and  Procedures:  The  precision  of  large  numbers 
in  terms  of  number  of  significant  digits  and  the  accuracy 
of  small  numbers  in  terms  of  number  of  significant  digits 
is  measured.  The  subroutine  terminates  when  either  of 
these  conditions  is  met. 

h.  Input  Arguments: 


A :  Lower  limit 

B:  Upper  limit 

N0SIG:  Number  of  correct  significant  digits 

(not  more  than  7) 

NUM:  maximum  number  of  halvings  of  (a,b) 

to  be  made  (not  more  than  99) 

K0DE:  controls  the  form  of  the  print-out 

FUNCT:  function  of  X  -  F4,  F5,  F6 

X:  variable  of  integration 

5.  Output  Arguments: 

ITD0NE:  number  of  iterations 

FINTG :  value  of  the  integral 

PRECIS :  actual  number  of  significant  digits 

attained 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (A,  B,  N0SIG,  PRECIS,  NUM,  ITD0NE, 

FINTG,  K0DE,  FUNCT,  X) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  742^  Bytes. 

12.  Subroutine  User:  PLUG5 

13.  Subroutines  Required:  FUNCT 

14.  Remarks:  None 
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1. 


Subroutine  Name:  f4 


2.  Purpose:  To  set  up  a  function  to., be  used  by  R0MBER 

in  the  computation  of  one  of  the  six 
basic  integrals  used  in  PLUG5. 

3.  Equations  snd  Procedures: 

F4  =  (Xx)  x6“1  SIN2  (X1>)  /DEN 

where 

DEN  =  X3  -  X2  X5  +  X2  X5  COS  (Xx)+  Xg  X4  SIN  (Xx) 

4.  Input  Argument:  X:  array  containing  integration  arguments 

5.  Output  Arguments:  F4:  functional  value 

6.  Error  Returns:  None 

7.  Calling  Sequence:  F4  (X) 

8.  Input  Tapes;  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  256^  Bytes. 

12.  Subroutine  User:  R0MBER 

13.  Subroutines  Required:  SIN,  C0S 

14 .  Remarks :  None 
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1.  Subroutine  Name:  F5 

2.  Purpose;  To  set  a  function  to  b;  used  by  R0MBER  in 

the  computation  of  -i  J,  one  of  the  six  ba«ic  integrals 
used  in  PLUG  5.  5 

3.  Equations  and  Procedures: 

p5  =  (X1)x6“1  2  sin  (x^,)  cos^^/DEN 
where 

DEN  -  x^-  Xg  x^  +  Xg  x^  cos  ( x*^ )  +  xg  x;+  sin  (x-j } 

4.  Input  Arguments: 

X:  array  containing  integration  arguments 
5-  Output  Arguments:  F5  -  functional  value 

6.  Error  Returns*.  None 

7.  Calling  Sequence:  F5(X) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  282^  Bytes. 

12.  Subroutine  User;  R0MBER 

13.  Subroutines  Required:  SIN,  C0S 

14 .  Remarks :  None 
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1.  Subroutine  Name:  F6 

2.  Purpose:  To  set  up  a  function  to  be  used  by  R0MBER 

in  the  computation  of  i^,  one  of  the  six  basic  integrals 
used  in  PLUG5 

3.  Equations  and  Procedures: 

F6  =  CONST  •  Cos  (X1)/‘DEN 

where 

PEN  =  X3-X2X5  +  X2X5  CoS  “  X2  x4  sin  (Xl^ 

/  1  ,  x6  =  1 

CONST=  { 

|(x1)X6"1  ,xg  0  1 

4.  Input  Arguments: 

X:  array  containing  integration  arguments 

5.  Output  Arguments: 

F6:  functional  value 

6.  Error  Returns:  None 

7.  Calling  Sequence:  F6(X) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required  Total  Storage  required  is  256l6  Bytes. 

12.  Subroutine  User:  R0MBER 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  QUADI 


2.  Purnose:  To  evaluate  integrals  by  an  enclosed  quadrature 

formula 

3.  Equations  and  Procedures: 

Given 


o 

when  it  is  true  that 


the  integrals  of  the  form 
t  «3 


■/’ 


_ 11 _ d* 

r.,  +  |  cos  ou  * 


XI:  Value  of  approximation 

6.  Error  Returns:  If  the  quadrature  doesn’t  converge  after 
1000  iterations,  the  program  terminates. 

7.  Calling  Sequence: 

CALL  QUADI  (Rl,  S,  N,  CTRM,  XI) 
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Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  308^  Bytes. 
Subroutine  User:  PLUG5 
Subroutines  Required:  None 
Remarks :  None 


1.  Subroutine  Name:  BMATRX 

2.  Purpose:  To  generate  a  matrix  [Bj  ,  given  specific  input, 
for  PLUG5 

3.  Equations  and  Procedures:  The  routine  forms  the  terms  of 
the  matrix  by  dir' .jsignment 

4.  Input  Arguments: 

S:  Variable  used  to  form  terms  of  matrix 

5.  Output  Argument". 

B:  completed  transformation  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (B  f  $} 

8.  Input  Tapes:  None 
9-  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Requireu.  Total  Storage  required  is  398^  Bytes. 

12.  Subroutine  User:  PLUG5 

13.  Subroutines  Required:  None 

14.  Remarks:  Typical  Element 

n(6,  =  -1. 0/2.0  *  S  *  S  *  S) 
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1.  Subroutine  Name:  DMATRIX 


2.  Purpose:  To  generate  a  matrix  jp]  ,  for  Plug  5»  given 
specific  input. 

3.  Equations  and  Procedures:  The  routine  forms  the  terms  of 
the  matrix  by  direct  algebraic  assignment 

input  Arguments: 

V 

c 

CA 

CA2  :  All  variables  used  to  form 

VA  the  terms 

DM 

DB 

YI 

5.  Output  Arguments: 

[d]  :  Completed  Matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence 

(D,  V,  C,  CA,  CA2,  VA,  DM,  DB,  YI) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  BA6.^  Bytes. 

12.  Subroutine  User:  Plug  5 

13.  Subroutines  Required:  None 

14.  Remarks:  Typical  Element 
D(3,2)  =  DB  *  (2.*V*YI (4,  1) 
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-  2.*  YI (6,2)  +  D(4,l)) 


1.  Subroutine  Name:  GAMMAT 

2.  Purpose:  To  generate  a  matrix  [GAMM],  given  another  matrix 

3.  Equations  and  Procedures:  The  routine  rearranges  the  rows 
of  the  input  matrix  to  form  the  output  matrix. 

4.  Input  Arguments: 

B:  Input  Matrix 

5.  Output  Arguments: 

G/.MM:  Output  Matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (GAMM,  B) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  1AAi6  Bytes. 

12.  Subroutine  User:  PLUG5 

13.  Subroutines  Required:  None 

14.  Remarks: 

Typical  Element  GAMM  (4,  3)  =  B  (10,  3) 
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1.  Subroutine  Name:  PCURL 


2.  Purpose:  To  generate  4  matrices,  [FME0]  ,[FMEl]  ,  [FFE0]  , 
and  [FFEl]  ,  given  specific  input,  for  Plug  5 

3.  Equations  and  Procedures:  The  routine  forms  the  terms 
of  the  matrices  by  direct  algebraic  assignment. 

4.  Input  Arguments: 

YT  \. variables  used  to  form 
S  /* che  terms  of  the  matrices. 

LAMlj 


5.  Output  Arguments: 


FME0  ) 
FME1  l 
FFE0 
FFEl  } 


t  output  matrices 


6.  Error  Returns:  None 

7.  Callii',;  Sequence:  (FME0,  FME1,  FFE0,  FFEl,  YI,  $,  LAM1) 

8.  Input  Tapes:  None 


9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 


11.  Storage  Required: 

FME0(1O,2),  FFE0 (10,2),  FMEl(lO,2),  FFE1(10,2),  fl.(6,12) 

12.  Subroutine  User:  PLUG5 


13.  Subroutines  Required:  None 

14.  Remarks:  Typical  Element 
FME1(4,2)  -  $1  *  YI(4,5) 


416 


1.  Subroutine  Name:  PLMX 

2.  Purpose  :  to  generate  ft  matrix  fFPCQ"],  given  specific 

input  for  Plug  5.  l.  j 

3.  Equations  and  Procedures:  The  routine  forms  the  terms  of 
the  matrix  by  direct  algebraic  assignment. 

4.  Input  Arguments: 

YI  ) 

C0N0T1  l  . 

C0N0T2  f  ' 

PI  J 

5.  Output  Arguments: 

FPCQ  Output  Matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (FPCQ,  YI,  C0N0T1,  C0N0T2,  PI) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  228^  Bytes. 

12.  Subroutine  User 

PLUG  5 

13.  Subroutines  Required;  None 

14.  Remarks:  Typical  Element 

FPCQ  (6,1)  =  CON0T1  *  (PI  *  YI  (1,2)  -  CON0T2  *  YI(1,3)) 


Variables  used  to  form 
the  terms  of  the  matrix 
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1.  Subroutine  Name:  SCRLM 

2.  Purpose:  To  generate  a  matrix  [$CURL]  ,  given  specific 
input,  for  PLUG 5 

3.  Equations  and  Procedures:  This  routine  forms  the  terms 
of  the  matrix  by  direct-  algebraic  assignment. 

4.  Input  Arguments: 

XXI : 

E: 

H:  Variables  used  to  form  the  terms  of  the  matrix 

CONT : 

RP: 

ALF1 : 

Rl: 

I  AMI: 

5 .  Output  Arguments : 

SCURL  J  output  element  stress  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

($CURL,  XXI,  E,  H,  C0NT,  RP,  ALF1,  Rl,  LAM1) 

8.  Input  Tapes:  None 
o.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  9F8^  Bytes. 

12.  Subroutine  User:  PLUG5 

13.  Subroutines  Required:  None 

14.  Remarks: 

Typical  Element 

$CURL(4,8)  =  $CURL(4,6)  *  3.0  *  XX 2  -  E(l,2)  *  6.0  *  XXI 
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1. 


Subroutine  Name:  $0LVE 

2.  Purpose:  To  solve  for  lambdas  as  functions  of  XI. 

i.e.  A  =  f  (XI) 

3.  Equations  and  Procedures:  The  routine  uses  algebraic 
techniques  to  arrive  at  a  solution. 

eg. ) 

LAM2  = 

where  Al,  Rl,  RP  are  constants 
LAM3  and  LAM4  are  similar 


4. 

Input  Arguments: 

Al) 

R1V. Variables  used  for  calculation 

RPf  of  the  lambdas 

XlJ 

5. 

Output  Arguments: 

LAM2\ 

LAM3  > :  Output  values 

LAM4  / 

6. 

Error  Returns: 

None 

7. 

Calling  Sequence: 

(Al,  Rl,  RP,  XI,  LAM2,  LAM3,  LAM4,  C0NT) 

8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required: 

Total  Storage  required  is  33il1g  Bytes. 

12. 

Subroutine  User: 

PLUG  5 

13. 

Subroutines  Required:  None 

14. 

Remarks :  None 

Cos 
Rl- RP  * 


(A1  + 
"siFTXTl 


XI  . 

“HP  ) 


+  XI 
RP 
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1.  Subroutine  Name:  PRINT5 

2.  Purpose:  To  print,  as  output,  the  intermediate  matrices 
and  single  valued  variables,  generated  in  Plug  5. 

3.  Equations  and  Procedures:  The  routine  contains  the  proper 
write  and  format  statements. 

4.  Input  Arguments:  All  the  variables  to  be  printed. 

(See  calling  sequence) 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (C,  DM,  DB,  PHIB,  RP,  $,  BB,  RT,  P$I1, 
P$I2,  C0$1,  $IN1,  XI,  YI,  B,  D,  W,  Wl,  H,  ALF2,  ALF1,  W3, 
Rl,  R2,  21,  22,  EP,  ET,  VPT,  AXI,  ABETA,  Til,  T10,  T2I, 
T20,  LAM1,  AIK,  AJK,  ET0,  ET1,  ALT0,  ALT1,  E,  FME0,  FME1, 
FFE0,  FFE1,  FTEL,  PI,  P2,  C0N$T1,  C0N$T2,  FPCQ,  FPEL, 
$CURL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  W(10,l8),  Wl(l8,l8] i  XI (6, 12),  YI(6,12), 
B(10,18>  D(10,10>  FTEL(l8,l),  FME0  (10,2),  FMEl(lO,2l 
FFE0(1O,2>  FFE1(10,2>  E(2,2>  AIK(2,2),  AJK(2,2),  ET0(2,ll 
ET1(2, 1),  ALT0(2,1VALT1(2,1),  FPEL(lo),  FPCQ(10,1)L  W(l8,l8), 
$CURL(15,10) 

12.  Subroutine  User:  PLUG  5 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  PLUG  14 


2.  Purpose:  To  compute  the  element  stiffness,  stress  and 
diagonal  mass  matrix. 

3.  Equations  and  Procedures:  The  routine  first  generates  the 
transformation  matrix,  PH,  and  prints  it  out  (using  P14PRT) 
if  opt1 on  is  in  effect.  It  then  calculates  the  stress  matrix 
depending  on  input  code  KI  0  2.  It  now  calculates  the  stiff¬ 
ness  matrix,  transforms  It  to  system  coordinates  using  MULTF, 
and  expands  it  using  P00F.  If  KI  =  2,  the  routine  will  then 
calculate  the  lumped  mass  matrix  and  expand  it  using  P00F. 

4.  Input  Arguments: 

IPL:  Plug  Number  (must  equal  14) 

NN0:  Number  of  node  points  (must  equal  4) 

X,Y, Z:  Three  vectors  of  length  four  each  having  the  X,Y,Z 
coordinates  of  the  4  node  points. 

N0RD:  Order  of  stiffness  and  mass  matrix  (must  equal  24) 

KI:  Selective  calculation  code 

MAT:  Material  properties  array 

MAT  (2)  =  E  -  Young's  Modulus 
MAT  p)  =  u  -  Poisson  Ratio 
MAT  (22)  =  DENSM  -  mass  density 
MAT  (23)  =  C0NT  -  print  control 
EXTRA:  Extra  input  array  (EXTRA  (1)  =  T  =  thickness) 

5 •  Output  Arguments : 

NERR:  Error  return  code 

N0INK :  Number  of  elements  in  symmetric  stiffness  matrix 
(equals  300) 

AKELXP:  Singly  subscripted  array  of  element  stiffness  matrix 
(symmetric  lower  half  by  rows) 

SELXP:  Singly  subscripted  array  of  element  stress  matrix 
of  size  1  x  24 

AMASS:  Singly  subscripted  array  of  element  mass  matrix 
(symmetric  lower  half  by  rows) 

NRSEL:  Number  of  rows  in  stress  matrix  (equals  1) 

NMASS:  Number  of  elements  in  symmetric  mass  matrix  (equals 
300 ) 

NSELXP:  Number  of  elements  in  stress  matrix  (equals  24) 
TSELXP:  Thermal  stress  vector  of  length  1  is  set  to  zero. 
TPELXP:  Applied  ldad  vector  of  length  24  is  set  to  zero. 

6.  Error  Returns:  If  NERR  0  0  then  error  was  detected  in  input 
arguments.  (Sea  ELPLUG) 

7.  Calling  Sequence: 

(IPL,  NN0,  X, Y, Z,  TEMP,  P,  QS,  IP,  N0RD,  N0INK,  AKELXP,  ANEL, 
TPELXP,  SELXP,  TSELXP,  AMASS,  NDMFV,  NDMPS,  NSELXP,  KI,  KF, 
KS,  KM,  KDS,  KDV,  KN,  IUSEL,  EPSI0,  S0,  MAT,  EXTRA,  GPAXEL, 
NDIR,  NDEG,  IC0NT) 
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8.  Input  Tapes:  None 
9-  Output  Tapes:  None 
10.  Scratch  Tapes:  None 

11:  Storage  Required:  505  decimal  locations  of  work  storage  used 
from  unlabeled  common  block. 

12;  Subroutine  User:  ELPLUG 

13;  Subroutines  Required: 

ELTSST,  P14PRT,  MULTF,  P00F 

14:  Remarks:  All  arguments  in  calling  sequence  not  defined  were 
not  used  in  subroutine. 
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i.  Subroutine  Name:  MULTF 


2.  Purpose:  To  preform  the  matrix  multiplication  B  transpose 
times  A  times  B,  where  A  is  a  symmetric  matrix  and  B  is  a 
rectangular  matrix. 

3.  Equations  and  Procedures: 

C  =  B  (transpose)  *  A  *  B 

The  routine  first  generates  the  product  of  a  row  of  B 
transpose  times  each  column  of  A  and  stores  this  in  a 
temporary  storage  V.  It  then  multiplies  V  times  the  appro¬ 
priate  columns  of  B  to  generate  the  corresponding  row  of  C. 

4.  Input  Arguments: 

A  :  The  symmetric  input  matrix  doubly  dimensioned  8x8 

with  only  symmetric  lower  half  needed. 

NA:  Order  of  A  must  be  less  than  9* 

B:  The  rectangular  input  matrix  doubly  dimensioned 

8x12  with  size  NA  x  NBC 

NBC:  Number  of  columns  of  B  (less  than  12) 

A  work  storage  vector  of  length  NA. 

3 •  Output  Arguments : 

C:  The  results  of  the  multiplication,  doubly  dimensioned 

12x12  with  only  symmetric  lower  half  returned.  Size 
is  NBC  x  NBC. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(A,  NA,  B,  NBC,  V,  C) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  350l6  Bytes. 

12.  Subroutine  User:  PLUG  14 

13.  Subroutines  Require:  None 

14 .  Remarks :  None 


1.  Subroutine  Name:  POOF 

2.  Purpose:  Expand  element  stiffness  matrix  (lower  symmetric 

by  rows  or  upper  symmetric  by  col)  and  element  thermal 

load  vector  and  add  the  components  into  the  expanded  matrix 
and  vector  in  their  appropriate  positions. 

3.  Procedure:  Using  the  decoding  vector  determine  the  locations 

of  the  components  of  the  element  stiffness  matrix  in  the 

new  expanded  (assembled  stiffness)  matrix  and  add  these 
old  element  components  into  their  new  positions.  The  same 
procedure  is  used  for  the  thermal  load  vector. 

4.  Input  Arguments: 

LIST  -  decoding  vector  consisting  of  NORD  components 

the  subscript  of  each  component  gives  the  old 
(element)  row  or  column  and  the  component 
itself  gives  the  row  or  column  in  the  new 
expanded  matrix. 

NORD  -  order  of  old  element  stiffness  matrix  (AKEL) 

also  length  of  old  thermal  load  vector  (FTEL). 
AKEL  -  old  element  stiffness  matrix  [upper  symmetric 

by  cols[]  .  " 

FTEL  -  old  thermal  load  vector. 

5.  Output  Arguments: 

AK  -  expanded  stiffness  matrix  [upper  symmetric 

by  cols] 

FOOL  -  expanded  thermal  load  vector. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

( LIST , NORD , AKEL , FTEL , AK ,FC0L ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  300^  Bytes. 

12.  Subroutine  Users:  PLUG8 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1. 


Subroutine  Name:  P14PRT 


2.  Purpose:  To  print  out  on  the  system  output  unit  the  Vari¬ 
ables  in  the  input  argument  list. 

3.  Equations  and  Procedures: 

4.  Input  Arguments: 


D12: 

variable  printed 

out 

and 

labled 

L12 

1)15: 

It 

tt 

It 

tt 

tt 

LI  5 

D35: 

It 

tt 

tt 

It 

tt 

L35 

ALX: 

tt 

tt 

tt 

tt 

tt 

LAMX 

ALY: 

It 

tt 

t! 

tl 

tt 

LAMY 

ALZ: 

ft 

ft 

tt 

tt 

|t 

LAMZ 

PX: 

It 

tt 

tt 

ft 

tt 

PSIX 

PY: 

ft 

tt 

tt 

tt 

tt 

PSIY 

PZ: 

ft 

tt 

tt 

tt 

tt 

PSIZ 

XP4: 

t! 

tt 

tt 

tt 

tt 

XP4 

YP4: 

tt 

tt  ^ 

tt 

tt 

tt 

YP4 

PH: 

An  8  x 

12  matrix  printed 

out  and  labled 

TRANSFORMATION  MATRIX 


ELEMENT 


5.  Output  Arguments:  None 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

(D12,  D15,  D35,  ALX,  ALY,  ALZ,  PX,  PY,  PZ,  XP4,  YP4,  PH) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  418.^  Bytes. 

12.  Subroutine  User:  PLUG  14 


13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  PLUG8 

2.  Purpose:  Generate  element  matrices  for  the  trapezoidal 

ring  element. 

3*  Equations  and  Procedures: 

a)  Call  subroutine  ELTEST  to  verify  input  control  values, 

b)  Initialize  material  properties ,  node  point  pressures, 
geometric  constants  and  integration  constants. 

c)  Call  subroutine  SURINT  to  calculate  other  integrals. 

d)  Define  transformation  matrix  to  transform  to  displacement 
degrees  of  freedom. 

e)  Generate  mechanical  property  matrix,  thermal  coefficient 
matrix,  stiffness  matrix  and  thermal  load  matrix. 

f)  Call  subroutine  POOP  to  calculate  pressure  load  vector. 

g)  Call  subroutine  ERIC  to  inflate  stiffness  matrix  and 
element  thermal  load  vector. 

h)  Generate  stress  matrix  and  thermal  stress. 

i)  Call  P8MASS  to  generate  element  mass  matrices. 

j)  Print  debug  print  if  requested. 

4.  Input  Arguments: 

IFL  -  internal  element  identification  number  (8) 

NNO  -  number  of  element  defining  points  (4) 

XC  -  coordinates  of  element  defining  points 

YC  -  coordinates  of  element  defining  points 

ZC  -  coordinates  of  element  defining  points 

TPS  -  temperatures  at  element  defining  points 

PVP  -  pressures  at  element  defining  points 

QS  -  input  displacements  at  element  defining  points 

(not  used) 

IP  -  not  used 

NORD  -  total  element  degrees  of  freedom  (12) 

K1  -  number  of  storages  required  for  element  stiffness 

matrix  (NORD* (NORD  +  l)/2) 

INNO  -  not  used 

NL  -  array  containing  grid  point  numbers  of  element 

defining  points 

KK  -  suppression  control  for  element  stiffness  matrix 

KAP  -  suppression  control  for  element  thermal  and 

pressure  load  matrices 

KS  -  suppression  control  for  element  stress  matrix 

KTS  -  suppression  control  for  element  thermal  stress  matrix 

KAM  -  suppression  control  for  element  mass  matrix 

KDS  -  suppression  control  for  structural  damping  matrix 

KDV  -  suppression  control  for  structural  viscous  matrix 

KSN  -  suppression  control  for  element  incremental 

stiffness  matrix 
IUMEL  -  not  used 

EPSIO  -  input  pre-strains 
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4.  Input  Arguments,  Contd: 

SO  -  input  pre-stresses 

MAT  -  input  temperature  interpolated  material  properties 

EXTRA  -  special  element  input 

GPAXEL  -  grid  point  axes  transformation  matrices  (not  used) 

NDIR  -  number  c?  directions  of  element  defining 

points  (3) 

NDEG  -  number  of  solution  degrees  of  freedom 

( 1-translatiOii) 

ICONT  -  grid  points  axes  indicator 

5.  Output  Arguments: 

NERR  -  error  indicator 

2K  -  element  stiffness  matrix 

ANEL3  -  element  incremental  stiffness  matrix 

XT  -  element  thermal  and  pressure  load  matrix 

SEL  -  element  stress  matrix 

SZALEL  -  element  thermal  stress  matrix 

AMASS  -  element  mass  matrix 

DAMPV  -  element  viscous  damping  matrix 

DAMPS  -  element  structural  damping  matrix 

NRSEL  -  number  of  rows  in  element  stress  and  thermal 
stress  matrices 

NMASS  -  number  of  storage  required  for  element  mass  matrix 

NDMPV  -  number  of  storages  required  for  element  viscous 

damping  matrix 

NDMPS  -  number  of  storages  required  for  element 
structural  damping  matrix 

NSEL  -  number  of  storages  required  for  element  stress 

matrix 

6.  Error  Returns: 

If  no  error,  then  NERR  is  set  to  zero 

If  IPL  +  28,  then  NERR  is  set  to  one 

If  NNO  7*  4,  then  NERR  is  set  to  two 

If  NORD  ?  12,  then  NERR  is  set  to  four. 

7.  Calling  Sequence: 

Call  PLUG8(IPL,NN0,XC,YC,ZC,TPS,PVP,QS,IP,N0RD,NERd,Kl,ZK, 

ANEL  3 , XT , SEL , SZALEL , AMASS , DAMPV , DAMPS , NRSEL , INNO , 

NL , EPSIO , SO , MAT , EXTRA , GPAXEL , NDIR , NDEG , ICONT ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  588E^g  Bytes. 
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E. 


I 


ft 


1: 


* 

1 


f 

I 


E 


£ 


12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required: 

ELTEST . 3  YMPRT , LOC , ELTEST ,MPRD ,TPRD , MSTR , SUBINT , 2MRD > ZTRD , 
KMPY , ERIC , POOP , P8MASS 

111.  Remarks:  None 
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P8MASS 


1.  Subroutine  Name: 


2.  Purpose:  To  generate  element  mass  matrix  for  PLUGS. 

3.  Equations  and  Procedures:  The  (8x8)  reduced  mass  matrix 

AMEL3  is  formed  in  terms  of  the  integration  constants. 

Then  the  transformation  to  displacement  degrees  of  freedom 
is  performed.  The  matrix  is  then  expanded  to  order 
(NORDxNORD)  by  subroutine  POOF. 


Input  Arguments: 


DENSM 

HH 

NORD 

NMASS 

110  -  132 

CHH 

SH 

LIST 


AMASS 


element  mass  density  vector  (first  element) 
transformation  to  displacement  degrees  of 
freedom 

order  of  mass  matrix  (*  12) 

number  of  elements  in  mass  matrix  (  =  78) 

integration  constants  for  rectangular  cross 

section  ring 

working  storage  (64) 

working  storage  (64) 

code  list  for  transforming  system  reduced 
degrees  of  freedom  to  system  expanded  degrees 
of  freedom 
work  storage  (36} 


5.  Output  Arguments: 

AMASS  -  resultant  mass  matrix  (symmetric  12  x  12) 

AMEL3  -  order  8  MASS  matrix  before  transformation 

and  expansion  to  order  12 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  P8MASS( DENSM, HH,AMASE, NORD, NMASS, 110, Ill, 112, 120, 121, 
122, 130, 131, 132, CHH, SH,AMEL3, LIST, AMASS) 


8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required 

• 

• 

Total  Storage  required  is  6C2  Bytes. 

16 
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Subroutine  User:  PLUQ8 

Subroutines  Required: 


MPRD 

TPRD 

MSTR 

POOP 


Remarks : 


None 


1. 


Subroutine  Name: 


SUBINT 


Purpose:  Solve  integral  used  in  integration  constants 

for  PLUG8  element  matrix  definitions. 

Equations  and  Procedures: 

*Q 


rr- 


HmIf 


DR  DZ 


Solve  for  H  given  R,  Z  and  Q  for  values  of  0,  1  and  2.  The 
R  and  Z  values  are  coordinates  of  a  trapezoid  area.  The  area 
is  divided  into  two  triangles  (A  and  B).  The  centroid  and 
area  of  each  triangle  is  found 

^A*  ^A*  RB*  V  ^AA*  AB^ 


H  =  UA  ZA  Q)  h  =  (AB  ^BQ) 


H  *  Ha  +  HB 


Input  Arguments: 


variable  (aouble  precision)  array 
variable  (double  precision)  array 
integer  (exponent) 


Output  Arguments: 


value  of  integral  (double  precision) 


Error  Returns:  None 

Calling  Sequence: 

Call  SUBINT (R,Z,Q,H) 
Input  Tapes :  None 

Output  Tapes:  None 


Scratch  Tapes:  None 


Storage  Required:  Total  Storage  required  is  2A6l6  Bytes, 


PLUG  8 


I 


te 


f, 


12.  Subroutine  User: 

13*  Subroutines  Required:  None 

1^4 .  Remarks:  R,  Z  and  H  must  be  double  precision  in 

calling  program. 
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ZMRD 


1.  Subroutine  Name: 

2.  Purpose:  Multiply  two  matrices  to  form  a  resultant 

matrix.  (This  is  a  modification  of  MPRD  to  include  double 
precision. ) 

3.  Equations  and  Procedures: 

po  =  la]  pg 


4.  Input  Arguments: 


A 

B 

N 

M 

L 

MSA 

MSB 


first  input  matrix  (double  precision) 
second  input  matrix  (single  precision) 
number  of  rows  in  A  matrix 
number  of  rows  in  B  matrix 
number  of  columns  in  B 
control  on  storage  mode  of 


control  on  storage  mode  of  B 


>  See  remarks 


5.  Output  Arguments: 

R  -  resultant  matrix  (double  precision) 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  ZMRD(A,B,R,N,M,MSA,MSB,L) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  Bytes. 

12.  Subroutine  User:  PLUG 8 

13*  Subroutines  Required:  LOC 

14 .  Remarks : 


1. 

General 

subroutine. 

2. 

Storage 

control  of  A  and  B  matrix 

0 

-  General 

1 

-  Symmetric  (upper  half) 

2 

-  Diagonal 

3. 

A  and  R 

must  be  double  precision  in  calling  program. 
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1. 


Subroutine  Name: 


ZTRD 


2.  Purpose:  Transpose  a  matrix  and  post  multiply  by 

another  to  form  a  resultant  matrix. 

This  routine  a  modification  of  TPRD  to  include 
double  precision. 

3.  Equations  and  Procedures: 

[R]  =  [A]T[B] 

[A]  is  not  actually  transposed. 

4.  Input  Arguments: 

A  -  first  input  matrix  (single  precision) 

B  -  second  input  matrix  (double  precision) 

N  -  number  of  rows  in  A  and  B 

M  -  number  of  columns  in  A  and  rows  in  R 

L  -  number  of  columns  in  B  and  rows  in  R 

MSA  -  control  of  storage  mode  of  A  ,  _ 

MSB  -  control  of  storage  mode  of  B  '  iee  remarKS 

5.  Output  Arguments: 

R  -  resultant  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  ZTRD(A,B,R,N,M,MSA,MSB,L) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  406^  Bytes. 

12.  Subroutine  User:  PLUG8 

13.  Subroutines  Required:  LOC 

14.  Remarks: 

1.  General  subroutine. 

2.  Storage  control  of  A  and  B  matrix 

0  -  . General 

1  -  Symmetric  (upper  half) 

2  -  Diagonal 

3.  B  must  be  double  precision  in  calling  program. 
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1.  Subroutine  Name:  KMPY 

2.  Purpose:  Multiply  each  element  of  a  matrix  by  a  scalar 

to  form  a  resultant  matrix. 

3.  Equations  and  Procedures:  This  subroutine  multiplies 

each  element  in  the  input  matrix  A,  by  a  scalar  C  and 
places  the  result  in  R.  Soubroutine  LOC  calculates  the 
vector  length  IT  of  the  resultant  vector  R. 

4.  Input  Arguments: 

A  -  name  of  input  matrix 

C  -  scalar  multiplier 

N  -  number  of  rows  in  matrix  A 

M  -  number  of  columns  in  matrix  A 

MS  -  storage  mode  of  matrix  A 

-  0  General 

-  1  Symmetric 

-  2  Diagonal 

5-  Output  Arguments: 

R  -  name  of  output  matrix 

N,M,MS  -  defined  above,  refer  to  the  R  matrix  also. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  KMPY (A,C,R,N,M,MS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  lFS^  Bytes. 

12.  Subroutine  User:  PLUG8 

13.  Subroutine  Required:  LOC 

14.  Remarks:  Good  comments  are  available  in  the  subroutine 

listing. 
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1.  Subroutine  Name:  ERIC 

2.  Purpose:  Compute  pressure  load  vector  (PP) 

Equations  and  Procedures: 

PP  =  SCAL  QiHTJ  [QP]  [HP]  [PVl 

50  Multiply  ITH  col  of  HH  *  QP  to  get  WORK(8)  vector 
Multiply  WORK  »  HP  to  get  WORK2(8)  vector 
Multiply  WORK2  »  PV  *  SCAL  to  get  FP(I) 

Update  I  and  go  to  50 

4.  Input  Arguments: 

HH  -  EQ.  2.10 

QP  -  EQ.  4.3.1.27  (less  211) 

HP  -  EQ.  4.3.1.29 

PV  -  EQ.  4.3.1.29 

SCAL  -  2JI  See  4.3.1.27 

5.  Output  Arguments: 

FP  -  pressure  load  vector 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(HH,  QP,  HP,  PV,  PP,  SCAL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  360^  Bytes 

12.  Subroutine  User:  PLUG8 

13.  Subroutines  Required:  None 

14.  Remarks:  Equation  are  given  in  "Formulation  and  Evaluation 

of  a  Trapezoidal  Cross  Section* Ring  Discrete  Element", 

R.  H,  Mailett,  S.  Jordan,  November,  1966. 
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1. 


Subroutine  Name: 


PLUG 17 


Purposes  (1)  To  generate  both  membrane  and  flexural,  element 
matrices  of  a  triangular  thir.  plate,  (2)  If  applicable, 
generate  incremental  matrices  for  instability. 

* 

Equations  and  Procedures: 

A.  Formulation  of  Equation  -  The  formulation  for  any 
computations  involved  in  evaluating  the  element  matrices 
will  be  found  in  references  (1)  and  (2).  (See  Remarks 
section  of  this  report.)  Modifications  were,  however, 
necessary  to  make  the  notation  compatable  with  3648 
procedures  and  applications.  The  formulations  and  coding 
are  not  necessarily  in  the  same  sequence  or  labeling. 

B.  Initial  Computations  - 

1.  Constants  have  to  be  set  for: 

a)  Ii’  the  element  matrices  are  to  be  computed, 
LAMDa(I)  =  1  where 


1=1,  for  membrane  stiffness  and  stress 
1=2,  for  flexural  stiffness  and  stress 
I  =  3»  for  membrane  thermal  load  and  stress 
1=4,  for  flexural  thermal  load  and  stress, 
b)  The  incrementals  will  not  be  computed: 

INCREM  =  0  since  ICONT  =  0. 

Material  properties  and  element  data  from  MAT  and 
EXTRA  array  noting  that  if  either  membrane  or  flexure 
thickness  is  zero,  the  appropriate  LAMDA  above  is 
reset  to  zero; 

According  to  reference  (2),  transformation  matrices 
have  to  be.. formulated  with  the  appropriate  direction 
cosines. 

a)  From  cylinder  coordinates  to  local  coordinates 

W*  =  P’i.J  <xo>  ^ 

b)  From  cylinder  coordinates  to  oblique  coordinates 

{xo}  *  PoJ  {xc}  (2) 

where  {x.  }  are  the  local  x,  y,  z  coordinates 

{x*}  are  the  cylinder  x,  y,  z  coordinates 

{x^}  are  some  other  orthogonal  X’  Y'  Z'  coordinates 

[T£c]  [T  J  contain  the  respective  direction  cosines. 

Since  the  element  displacements  are  in  local 
coordinates,  combining  equations  (1)  and  (2)  yields 


<**>  -  pl0]  Lt0c]t(x0)  >  [TTOBL]  (x0) 
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3.  Equations  and  Procedures  (Contd.): 

4.  Transformation  of  the  above  cited  displacements, 

x^,x2,X2>y1,etc.  into  3648  notation  x1>y1,z1,x2>etc. 

will  result  in  the  formulation  of 

{x1,x2,x3,etc}  =  [T1718J  {x1,y1,z1,etc}  (4) 

C.  Flexural  Computations  -  (All  equations  cited  are  in 
Reference  1;. 

1.  Using  equation  IV-6,  the  [B]  matrix  is  formulated. 

However,  it  should  be  noted  that  the  SEL  array  is 

used  to  relabel  the  displacements  as  W,  8  and  8 

a  y 

(instead  of  0  ,  8  ,  W). 

x  y 

2.  Using  equations  IV-15,  16,  and  17,  the  geometric 
properties  of  the  element  are  first  defined  in  local 
and  then  in  global  coordinates.  These  are  shown  as 
Figures  IV-3  and  IV-2  respectively. 

3.  If  the  incrementals  are  to  be  computed  (N  ,  N  ,  N  ) 

a  y  xy 

the  following  sequence  of  operations  take  place: 

a)  Using  equation  IV-14,  the  respective  [Cfj  matrices 
are  formulated. 

b)  The  respective  incremental  is  formulated  according 
to  equation  IV-ll  and  then  transferred  to  3648 
notation  by  [T17183  . 

4.  The  remaining  element  matrices  are  then  formulated 
according  to  the  respective  equations  cited: 

a)  Stiffness  -  Equations  IV-2,  6  and  10 

b)  Stress  -  Equation  IV-24 

c)  Thermal  Load  -  Equation  IV-2I 

d)  Thermal  Stress  -  Equation  IV-26 

D.  Membrane  Computa cions  -  (All  equations  cited  are  in 
Reference  1).  The  following  membrane  matrices  are  then 
formulated  according  to  the  respective  equation  cited: 

a)  Element  -  Equations  II-l,  5  and  11 

b)  Stress  -  Equation  11-16 

c)  Thermal  Stress  -  Equation  11-25 

d)  Thermal  Load  -  Equation  11-22 

E.  Remaining  Operations  -  The  element  stiffness,  stress 
and  thermal  load  matrices  are  then  transformed  first  to 
global  and  then  to  3648  notation. 
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Input  Arguments: 

NCE1  -  number  of  node  points 

ZELC,YF.LC,ZELC  -  X,  Y  and  Z  coordinates 
TEL, PEL  -  temperature  and  pressure  array 

NORD  -  order  of  element  stiffness  matrix 

NCEI  -  node  point  numbers 

GPAXEL  -  grid  point  axes  transformation  for  element 

KN  -  control  for  instability  (if  set  =  3,  incrmentals 

computed) 

ICONT  -  control  of  grid  point  axes  transformation 

MAT  -  material  properties  array 

EXTRA  -  element  properties  array 

5-  Output  Arguments: 

NOINK  -  number  of  elements  in  stiffness  matrix 

AKELX  -  elements  of  stiffness  matrix  (symmetric  - 

bottom  half) 

FTELX  -  elements  of  thermal  load  matrix 

SELX  -  elements  of  stress  matrix 

PTEL  -  elements  of  thermal  stress  matrix 

NRSEL  -  number  of  rows  in  stress  matrix  (5) 

NSEL  -  number  of  elements  in  stress  matrix  (90) 

6.  Error  Returns: 

(a)  NERR  -  standard  plug  checks  from  ELTEST 

(b)  If  points  (1)  and  (2)  have  same  coordinates  call  EXIT 

(c)  If  B_1  is  singular  -  call  EXIT. 

7.  Calling  Sequence: 

Call  PLUG 17 ( I PL , NCE 1 , XELC , YELC , Z ELC , TEL , PEL , QSEL , I P , NORD , NERR , 
NO INK , AKELX , ANELX 1 , FTELX , SELX , PTEL , AMASS , DAMPV , 
DAMPS , NRSEL , NNO , NCEI , NMASS , NDMPV , NDMPS , NSEL , KK , 

KF , KS , KM , KDS , KDV , KN , IUSEL , SPSIO , SO , MAT , EXTRA , 
GPAXEL, NDIR,NDEG, ICONT) 

8.  Input  Tapes:  1  one 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 
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11.  Storage  Required: 

a)  Variables 


b)  Definition 


T1718  (24,24) 
TTOBL  (3,12) 

SEL  (17,24) 
ANELX  (300) 
ANELY  (300) 
ANELXY  (300) 
ANELEX  (300,3) 


Transformation  matrix  to  3648  notation 
Transformation  matrix  from  local  to 
global  or  oblique  coordinates 
Working  area  and  stress  matrix 

Incremental  matrices  in  Cylinder 
Notation 

Incremental  matrices  for  Instability 
in  3648  notation 


12.  Subroutine  User:  ELPLUG 


13*  Subroutines  Required: 


DIRC03  BCB 

BCB12  MATB 

FTELQ  MAB 

SELQ  KOBLIQ 


14.  Remarks: 

a)  Controls  are  reset  in  programs  to  compute  everything  but 
the  incrementals .  Initial  test  phase  had  KN  =  1  to  check 
these  computations. 

b)  Plug  not  tested  out  if  either  the  flexural  or  membrane 
thickness  is  zero  (certain  portions  of  plug  will  be  bypassed 
as  LAMDA  is  set  »  0). 

c)  Thermal  load  will  probably  have  to  be  rederived  as  2nd 
input  TEMP  is  thermal  moments  Mx  and  not  the  thermal 
gradient  as  prescribed  for  flexural  elements  (PLUGS  1 
and  2 ) . 

d)  References: 

(1)  Bell  Report  No.  D2114-95005,  "Derivation  of  the 
Force  -  Displacement  Properties  of  Triangular  and 
Quadrilateral  Orthotropic  Plates  in  Plane  Stress 
and  Bending"  -  Gallagher,  Huff  -  dated  Jan.  1964. 

(2)  Bell  Report  No.  D2114-95Q08 ,  "Detailed  Description 
Computer  Program  for  Stiffened  Cylinder  Analysis" 
Gallagher,  Huff,  Dale  -  dated  Jan.  1964. 
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w* 


1. 


Subroutine  Name: 


DIRCOS 


2.  Purpose:  To  evaluate  the  direction  cosines  given  any  3 

points  that  define  a  plane. 

3.  Equations  and  Procedures:  Subscripts  1,  2  and  3  refer  to 

the  3  points  of  the  plane.  Dropping  a  perpendicular  from 
point  3  to  the  line  connecting  1  and  2  results  in  point  a. 
The  following  computations  are  done  in  order  to  determine 
the  direction  cosines. 

112  "  ^ x2  "  X1J  +  (y2  “  ylJ  +  (z2  "  zl^ 

113  *  (X3  “  X1J  +  (y3  “  yl)  +  (Z3  "  Zl} 


Equations  and  Procedures , (Contd .) : 


u,  -  X3~Xa 
x  1 


1a3  ’  1 


z3~za 


Input  Arguments: 

XEL1 ,YEL1 ,ZEL1  -  X,  Y,  Z  coordinates  of  plane 
Output  Arguments: 


XLAMD1 

YLAMD1 

ZLAMD1 

XPSI1 

ZPSI1 

XNU1 

YNU1 

ZNU1 

ALI21 


direction  cosines. 


distance  between  point  1  and  2  of  the  plane. 


Error  Returns:  None 


Calling  Sequence: 

Call  DIRC0S(XEL1 ,YEL1 ,ZEL1 ,XLAMDL ,YLAMDi,ZLAMDl jXPSIIjYPSIl, 
:  XNV1,YNU1  ,Z'NU1  ,ALI21) 


Input  Tapes:  None 

Output  Tapes:  None 


Scratch  Tapes: 


None 


11.  Storage  Required:  Total  Storage  required  is  57 6l6  Bytes. 

12.  Subroutine  User:  PLUG17*  PLUG19 

13*  Subroutines  Required:  None 

l1!.  Remarks:  None 


1.  Subroutine  Name:  BCB12 

2.  Purpose:  To  evaluate  a  triple  product  matrix  where  all 

matrices  are  square. 

3-  Equations  and  Procedures:  Dependent  upon  an  input 

variable  (ISIN2)  when  ISIN2  =  5- 

AKEL  *  C A-1  _7  T  fCj  /"A”1  J 

when  ISIN2  =  11 

AKEL  =  Z"A_7  T  fCj  £k J 

where  A  now  contains  elements  of  A**^. 

^ .  Input  Arguments: 

A  -  matrix  to  be  inverted  or  the  inverted  matrix 

C  -  symmetric  matrix  bottom  half 

N0R2  -  order  of  matrices 

JNL1  -  dummy  -  set  equal  to  1 

IKELW  -  print  option 

JEL1  -  dummy  -  set  equal  to  1 

ISIN2  -  input  code  for  above 

NEC1  -  node  points 

SUBTI1  -  title  of  matrix 

SUBTI2  -  type  of  element 

NCE2  -  number  of  grid  points 

5.  Output  Arguments: 

AKEL  -  results  of  the  above  triple  product. 

6.  Error  Returns:  If  A  is  singular  -  print  out  error  and  EXIT. 

7.  Calling  Sequence: 

Call  BCB12 ( A ,C ,N0R2 , JNL1 , IKELW . JEL1 >ISIN2 ,AKEL,NCE2 ,NCE1 , 

SUBTI1 ,SUBTI2 ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  1208-^  Bytes. 

12.  Subroutine  User:  PLUG17*  PLUG18 

13.  Subroutines  Requireu:  None  -  has  a  built  in  inverse  routine. 

14.  Remarks:  Note  that  maximum  size  of  matrix  is  only  12. 


1. 


Subroutine  Name: 


KOBLIQ 


2.  Purpose:  To  evaluate 

(TTOBL)T  (AKEL)  (TTOBL) 

3«  Equations  and  Procedures:  TTOBL  is  a  compressed  trans¬ 

formation  matrix  (3,12)  that  is  labeled  u,  v,  w  for  each 
node  point.  Since  AKEL  is  labeled  u1>  Ug,  u^,  etc.,  the 

appropriate  manipulation  is  done  in  this  routine  to  do  the 
above  product. 

4.  Input  Arguments: 

NI  -  order  of  matrices 

TTOBL  -  transformation  matrix  of  element 

AKEL  -  element  stiffness  matrix 

SU3TI1 ,  SUBTI2  -  labeling  of  printout 

IKELW  -  print  option 

C  -  working  storage 

NA1  -  number  of  nodes  defining  element 

NAI  -  node  points 

ROW  -  working  storage 

5.  Output  Arguments: 

AKEL  -  element  stiffness  matrix 

6.  Error  Return:  None 

7.  Calling  Sequence: 

Call  KOBLIQ (NI, TTOBL, AKEL, SUBTI1.SUBTI2, IKELW, C, NAI, NAI, ROW) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  AFO^  Bytes. 

12.  Subroutine  User:  PLUG17 ,  PLUG18 

13*  Subroutine  Required:  None 

l1!.  Remarks:  Note  that  dimension  for  ROW  dictates  size  of 

multiplication. 


M5 


1. 


Subroutine  Name:  P1718M 


2.  Purpose:  Initialize  element  properties  from  the  material 

table  for  membrane  properties  with  flexural  data  only  from 
PLUG  17  and  PLUG  18. 

3.  Equations  and  Procedures: 

EXEL  =  MAT (14) 

EYEL  =  MAT (15) 

BETA  =  EXEL/EYEL 

XYMU  =  MAT (16) 

ALFAEL  =  MAT (17) 

GXYEL  =  MAT (18) 

4.  Input  Arguments:  MAT 

5-  Ouuput  Arguments: 

EXEL 

BETA 

XYMU 

GXYEL 

ALFAEL 

6.  Error  Return:  None 

7.  Calling  Sequence: 

P 1 7 1 8M ( MAT , EXEL , BETA , XYMU , GXYEL , ALFAEL ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  3CO.^  Bytes. 

12.  Subroutine  User:  PLUG  17  ;  PLUG  18 

13.  Subroutine  Required:  None 
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14.  Remarks: 


None 


Subroutine  Name:  SELQ 

2.  Purpose:  To  transform  the  stress  matrix  (generated  by 

PLUG17  and  PLUG18)  to  the  stress  system  required  - 
generally  local). 

3.  Equations  and  Procedures: 

[S]  TRANS  *  ra 


where  [S]  is  the  stress  matrix  generated  by  17  and/or  18. 
[TTOBL]  is  the  transformation  matrix  from  global  to  local 
or  global  to  oblique. 

4.  Input  Arguments: 


N0RD6 

TTOBL 

IKELW 

A 

NRSEL 

ROW 


number  of  columns  in  stress  matrix 

transformation  matrix 

print  option 

element  stress  matrix 

number  of  rows  in  stress  matrix 

working  storage 


5.  Output  Arguments: 


A  -  stress  matrix  transformed  to  local  system 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  SELQ ( N0RD6 ,TTOBL , IKELW , A , NRSEL , ROW ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  664^  Bytes. 

12.  Subroutine  User:  PLUG17,  PLUG18 

13.  Subroutines  Required:  None 

14.  Remarks: 

1.  12  elements  at  one  time  (membrane  or  flexure)  are  put 
into  the  working  area  (ROW). 

2.  Note  again  the  labeling  of: 

(a)  TTOBL  =  u-^,  v1,  w1>  etc. 

(b)  SEL  «  u1,  u2,  u3, 
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Ujj,  etc. 


I.  Subroutine  Name:  FTELQ 

<-  Purpose:  To  transform  the  element  thermal  (local)  load 

into  global  or  oblique  system. 

3.  Equations  and  Procedures: 

CP>®  »  [TTOBqT{F^le} 
where  TTOBL  is  the  transformation  matrix. 

{Fgle>  is  the  element  local  thermal  load 

{F}“  is  the  transformed  load 

4.  Input  Arguments: 

N0RD6  -  size  of  the  load  vector 
TTOBL  -  transformation  matrix 

IKELW  -  print  option 

THMOEL  -  local  thermal  load 

ROW  -  working  storage 

5.  Output  Arguments: 

THMOEL  -  transformed  thermal  load 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  FTELQ(N0RD6, TTOBL .IKELW, THMOEL, ROW) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

II.  Storage  Required:  Total  Storage  required  is  56C1g  Bytes. 

12.  Subroutine  User;  PLUQ17*.  PLUG18 


448 


13.  Subroutines  Required:  None 

14.  Remarks: 


1. 

2. 


Note  that  dimension  of  RCW(12)  indicates  12  elements 
at  a  time  transformed  (membrane  or  flexure). 

Note  labeling  of: 

(a)  [TTOBL]  -  PY  ,  F  ,  ,  etc. 

X1  yl  Z1 


(b) 


'PeleJ 


etc . 
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Subroutine  Name: 


PLUQ18 


Purpose:  (1)  To  generate  both  membrane  and  flexural  element 

matrices  of  a  quadrilateral  thin  plate,  (2)  If  applicable, 
generate  Incremental  matrices  for  instability. 


Equations  and  Procedures: 


A.  Formulation  of  Equation  -  The  formulation  for  any 

computations  involved  in  evaluating  the  element  matrices 
will  be  found  in  references  (1)  and  (2).  (See  Remarks 
Section  of  this  report.)  Modifications  were,  however, 
necessary  to  make  the  notation  compatable  with  3648 
procedures  and  applications.  The  formulations  and  coding 
are  not  necessarily  in  the  same  sequence  or  labeling. 


B. 


Initial  Computations  - 

1.  Constants  have  to  be  set  for: 

a)  If  the  element  matrices  are  to  be  computed, 
LAMBA(I)  a  1  where 

1=1,  for  membrane  stiffness  and  stress 
1=2,  for  flexural  stiffness  and  stress 
I  a  3,  for  membrane  thermal  load  and  stress 
1=4,  for  flexural  thermal  load  and  stress. 

b)  The  incrementals  will  not  be  computed 
INCREM  =  0  since  ICONT  =  0. 

2.  Material  properties  and  element  data  from  MAT  and 
EXTRA  array  noting  that  if  either  membrane  or  flexure 
thickness  is  zero,  the  appropriate  LAMDA  above  is 
reset  to  zero. 

3.  According  to  reference  (2),  transformation  matrices 
have  to  be  formulated  with  the  appropriate  direction 
cosines . 

a)  From  cylinder  coordinates  to  local  coordinates 

{V  =  CTsiJ  <v  ^ 

b)  From  cylinder  coordinates  to  oblique  coordinates 


(*0>  -  [TJ 


(2) 


where  tx*}  are  the  local  x,  y,  z  coordinates 

tx*}  are  the  cylinder  x,  y,  z  coordinates 

(xc)  are  some  other  orthogonal  X'  Y’  Z'  coordinate 


[ToJ]  contain  the  respective  direction  cosines. 


Since  the  element  displacements  are  in  local 
coordinates,  combining  equations  (1)  and  (2)  yields 


(X.)  -  [T.J  [T0<P'rU0)  =  [TTOBL]  U0>  (3) 


Equations  and  Procedures  (Contd): 


4.  Transformation  of  the  above  cited  displacements 

x^x^x^y^etc.  into  3648  notation  x1  ,y1  ,z1  ,x2 ,etc . 

will  result  in  the  formulation  of 

{x1,x2>x3,etc}  =  [T17l8]  {x1,y1>z1>x2>etc}  (4) 

C.  Flexural  Computations  -  (All  equations  cited  are  in 
Reference  1): 

1.  Using  equation  V-5»  the  (B)  matrix  is  formulated. 
However,  it  should  be  noted  that  the  SEL  array  is 
used  to  relabel  the  displacements  as  W,  ex  and 

(instead  of  0  ,  0  ,  W). 

**  y 

2.  Using  equations  V-19,  and  21,  the  geometric  properties 
of  the  element  are  first  defined  in  local  and  then  in 
global  coordinates.  These  are  shown  as  Figures  V-8 
and  V-7  respectively. 

3.  If  the  incrementals  are  to  be  computed  (N  ,  N  ,  N  ) 

x  y  xy 

the  following  sequence  of  operations  take  place: 

a)  Using  equation  V-ll,  the  respective  (C)  matrices 
are  formulated. 

b)  The  respective  incremental  is  formulated  according 
to  equation  V-12  and  then  transferred  to  3648 
notation  by  (T1718). 

4.  The  remaining  element  matrices  are  then  formulated 
according  to  the  respective  equations  cited: 

a)  Stiffness  -  Equations  V-2,  3rd  and  5 

b)  Stress  -  Equations  V-9  and  30 

c)  Thermal  Load  -  Equations  \ -26 

d)  Thermal  Stress  -  Equation  V-32 

D.  Membrane  Computations  -  (All  equations  cited  are  in 
Reference  1).  The  following  membrane  matrices  are  then 
formulated  according  to  the  respective  equation  cited: 

a)  Element  -  Equations  J.II-2,  8  and  12 

b)  Stress  -  Equation  III-26 

c)  Thermal  Stress  ~  Equation  III-25 

d)  Thermal  Load  -  Equation  I 11-22 

E.  Remaining  Operations  -  (1)  The  element  stiffness,  stress 

and  thermal  lead  matrices  are  then  transformed  first  to 
global  and  then  to  3648  notation,  (2)  The  stress  matrix 

is  now  expanded  to  be  consistent  with  3648  applications  by 
(T18ST). 


4.  Input  Arguments: 


NCE1  -  number  of  node  points 

XELC , YELC , ZELC  -  X,  Y  and  Z  coordinates 
TEL, PEL  -  temperature  and  pressure  array 

NORD  -  order  of  element  stiffness  matrix 

NCEI  -  node  point  numbers 

GPAXEL  -  grid  point  axes  transformation  for  element 

KN  -  control  for  Instability  (If  set  *  1,  Inerementals 

Computed) 

ICONT  -  control  of  grid  point  axes  transformations 
MAT  -  material  properties  array 

EXTRA  -  element  properties  array 

5.  Output  Arguments: 

NOINK  -  number  of  elements  in  stiffness  matrix 

AKELK  -  elements  of  stiffness  matrix  (symmetric  - 

bottom  half) 

FTELK  -  elements  of  thermal  load  matrix 

SELKP  -  elements  of  stress  matrix 

PTELK  -  elements  of  thermal  stress  matrix 

NRSEL  -  number  of  rows  in  stress  matrix  (40) 

NSEL  -  number  of  elements  in  stress  matrix  (900) 

6.  Error  Returns: 

(a)  NERR  -  standard  plug  checks  from  ELTEST 

(b)  If  points  (1)  and  (2)  have  same  coordinates  call  EXIT 

(c)  If  B"1  is  singular  -  call  EXIT 

7.  Calling  Sequence: 

Call  PLUG 1 8 ( I PL , NC El , XELC , YELC , Z ELC ,TEL , PEL , QSEL , I P , > JORD , 

NERR , NOINK , AKELX , ANELX1 , FTELX , SELKP , PTELK , AMASS , 
DAMPV , DAMPS , IRSEL , NNO , NCEI , NMASS , NDMPV , NDMPS , NSEL , 

KK , KF , KS , KM , KDS , KDV , KN , IUSEL , EPSIC , SO , MAT , EXTRA , 
GPAXEL , NDIR , NDEG , ICONT ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes: 


None 


11.  Storage  Required: 

a)  Variables 


b )  Definitions 


Transformation  matrix  to  3648 
notation 

Transformation  matrix  from  local 
to  global  or  oblique  coordinates 
Working  area  and  stress  matrix 

Incremental  matrices  in  cylinder 
notation 

Incremental  matrices  for  Instability 
in  3648  notation 


12. 

Subroutine  User: 

ELPLUG 

13. 

Subroutines  Required: 

DIRSO 

BCB 

BCB12 

MATB 

FTELQ 

SELQ 

KOBLIQ 

MAB 

14. 

Remarks : 

a)  Cbntrols  are  reset  in  programs  to  compute  everything 
but  the  incrementals.  Initial  test  phase  had  KN  =  1  to 
check  these  computations. 

b)  Plug  not  tested  out  if  either  the  flexural  or  membrane 
thickness  is  zero  (certain  portions  of  plug  will  be 
bypassed  as  LAMDA  is  set  *  0). 

c)  Thermal  load  will  probably  have  to  be  rederived  as  2nd 
input  TEMP  is  thermal  moments  Mx  and  not  the  thermal 
gradient  as  prescribed  for  flexural  elements  (PLUGS  1 
and  2 ) . 

d)  References: 

(1)  Bell  Report  No.  D2114-95005,  "Derivation  of  the 
Force  -  Displacement  Properties  of  Triangular 
and  Quadrilateral  Orthotropic  Plates  in  Plane 
Stress  and  Bending"  -  Gallagher,  Huff  -  dated 
Jan.  1964. 

(2)  Bell  Report  No.  D2114-95Q08 ,  "Detailed  Description  - 
Computer  Program  for  Stiffened  Cylinder  Analysis"  - 
Gallagher,  Huff,  Dale  -  dated  Jan.  1964. 


T1718  (24,24) 

TTOBL  (3,12) 

SEL( 17 ,24 ) 

ANELX  (309) 

ANELY  (300) 

ANELXY  (300) 
ANELEX  (300,3)  - 
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1. 


Subroutine  Name: 


TR18ST 


2.  Purpose:  To  form  transformation  for  stress  and  thermal 

stress  matrices  to  us  v,  w  notation 

3.  Equations  and  Procedures:  See  element  write-up  for 

defined  transformations. 

4.  Input  Arguments: 

NODE  -  element  nodes 


5.  Output  Arguments: 


T1718 

T18ST 


transformation  matrices 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  TRl8ST(NODE,T17l8,Tl8ST) 

8.  Input  Tapes:  None 


9.  Output  Tapes:  None 


10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  352^  Bytes. 

12.  Subroutine  User:  PLUG18 


13.  Subroutine  Required: 

14 .  Remarks :  None 


None 


1. 


Subroutine  Name: 


FBMP18 


2.  Purpose:  To  evaluate  B  matrix  for  quadrilateral  plate 

elements;  out  of  plane. 

3.  Equations  and  Procedures:  See  element  write-up  for 

definition  of  B  matrix  generation. 

4.  Input  Arguments: 

XEL  -  X  coordinates 

YEL  -  Y  coordinates 

5*  Output  Arguments: 

B  -  output  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  PBMP18(XEL,YEL,B) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  39Al6  Bytes. 

12.  Subroutine  User:  PLUG18 

13.  Subroutine  Required:  None 

15.  Remarks:  NOne 
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1.  Subroutine  Name:  PLUG 2 2 

2.  Purpose:  Element  matrix  generation  for  the  incremental 

frame  element. 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments: 

IPL  -  plug  number 

NNO  -  number  of  node  points 

XC  -  X-coordinates  of  nodes  points 

YC  -  Y-coordinates  of  node  points 

ZC  -  Z-coordinates  of  node  points 

TEL  -  temperatures  at  the  node  points 

PEL  -  pressures  at  the  node  points 

QS  -  input  displacements  of  the  node  points 

IP  -  number  of  extra  cards 

NORD  -  order  of  element  stiffness  matrix 

NRSEL  -  number  of  rows  in  the  stress  matrix 

NN  -  number  of  nodes 

NL  -  node  point  numbers 

KK  -  code  for  computation  of  element  stiffness  matrix 

KF  -  code  for  computation  of  element  thermal  load 

K8  -  code  for  computation  of  element  stress  matrix 

KM  -  code  for  computation  of  element  mass  matrix 

KT3  -  code  for  computation  of  element  thermal  stress  matrix 

ET  -  code  for  computation  of  structural  damping  matrix 

KVM  -  code  for  computation  of  viscous  damping  matrix 

KN  -  code  for  computation  of  incremental  damping  matrix 

IUSEL  -  dummy 

EPS  -  pre-strain  load  vector 

SO  -  pre-stress  load  vector 

MAT  -  material  properties  matrix 

EXTRA  -  extra  information  (angles,  etc.) 

NDIR  -  number  of  directions  of  movement -per  grid  point 

NDEG  -  number  of  types  of  movement  allowed  per  grid  point 

ICONT  -  code  for  use  of  grid  ooint  axes 

5.  Output  Arguments: 

NERR  -  error  return 

NOINK  -  number  of  elements  in  lower  half  matrices 

KSEL  -  stiffness  matrix 

GNX  -  incremental  stiffness  matrix 

FTEL  -  thermal  load  +  pressure  load  matrix 

SEL  -  stress  matrix  ' 
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5. 


Output  Arguments  (Contd): 


SZALEL 

AMASS 

DAMPV 

DAMPS 

NSEL 

NMASS 

NDMPV 

NDMPS 

OPAXEL 


therma-  stress  matrix 
mass  matrix 

visco.us  damping  matrix 

structural  damping  matrix 

number  of  elements  in  stress  matrix 

number  of  elements  in  mass  matrix 

number  of  elements  in  viscous  damping  matrix 

number  of  elements  in  structural  damping  matrix 

grid  point  axes  transformation 


6.  Error  Returns: 


NERR  =  0 
=  1 
=  2 

=  3 
=  4 


no  erroi’ 

plug  number  incorrect 
number  of  nodes  incorrect 
number  of  input  points  incorrect 
order  of  matrix  (NORD)  incorrect 


7.  Calling  Sequence: 

Call  PLUG 2 2 ( IPL , NNO , XC , YC , ZC , TEL , PEL , QS , IP , NORD , NERR , NOINK , 
KSEL , CNX , PTEL , SEL , SZ  ALEL , AMASS , DAMPV , DAMPS , NRSEL , 
NN , NL , NMASS , NDMPV , NDMPS , NSEL , KK , KP , K8 , KM , KTS , ET , 
KVM , KN , IUSEL , EPSIO , SO , MAT „ EXTRA , GPAXEL , NDIR , NDEG , 
ICONT) 

8.  Input.  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  BFCC^  Bytes. 


12.  Subroutine  User:  ELPLUG 


13.  Subroutines  Required: 

ELTEST,  CTS,  CTCQ,  CECC,  MAB,  AXTRA2 ,SYMPRT,  BCB,  MATB,  MSB, 
PINP22 ,SQRT 

14.  Remarks:  None 
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1. 


Subroutine  Name: 


PINP22 


2.  Purpose:  To  form  the  incremental  matrix  for  the  incremental 

frame  element. 

3*  Equations  and  Procedures: 

AIN ( 10 )  =  (L)*A 

AIN(l4)  =  (L2)*A 

AlN( 15)  =  (4*L3/3)*A 

AIN ( 19 )  =  (L3)*A 

AIN (2U)  =  (3*L4/2)»A 

AIN ( 21 )  =  ( 9*L5/5)*A 

AIN( 36 )  =  (L)*A 

AIN ( 44 )  =  (L2)#A 

AIN (45)  =  (4#L3/3)#A 

AIN ( 53 )  =  (L3)»A 

AIN ( 54 )  =  (3*L4/2)*A 

AIN (55)  =  (9*L5/5)*A 

All  other  values  of  AIN  are  zero 

4.  Input  Arguments: 

2  2  2 

L  =  X  +  Y  +  Z 

LI  =  1/L 
L2  =  L2 
L3  =  L3 
Lt  =  L4 
L5  •  L5 

PRINT  =  print  control 
A  =  area  of  member  (A) 

5.  Output  Arguments: 

AIN  -  incremental  matrix 

6.  Error  Return:  None 

7.  Calling  Sequence: 

Call  FINP22(L,L2,L3,L4,L5jAIN,PRINT,A) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 
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10. 


Scratch  Tapes:  None 


11.  Storage  Required:  Total  Storage  required  is  3EC^g  Bytes. 

12.  Subroutine  User:  PLUG22 

13.  Subroutine  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  AXTRA1 


2 .  Purpose :  Apply  grid  point  axes  transformation  by  pre-multi¬ 
plication  using  either  the  actual  transformation  matrix  or 
its  transpose  . 


Equations  and  Procedures: 


[MOUT 
where 


•] 


[min] 

[[Spa] 


Qgpa]  [min]  or  [mout]  =  [JgpaI  [min] 

is  the  input  element  matrix, 

is  the  element  grid  point  axes  transformation 
matrix, 

is  the  output  transformed  element  matrix . 


is  stored  in  the  same  location  as 


M. 


IN 


] 


therefore 


[mout] 

the  input  element  matrix  is  lost  once  the  multiplication  has 
been  effected .  Advantage  is  taken,  during  multiplication, 
of  the  fact  that[£!p^j  is  structured  as  a  set  of  (3x3)  or 

(2x2)  matrices  with  main  diagonal  positions  lying  on  the 
main  diagonal  °f[fQp£j  * 

Input  Arguments: 

Element  grid  point  axes  transformation  matrixXQ PA1 
Input  element  matrix,  ^  -* 

Number  of  columns  in  QSEL 

Number  of  element  node  points 

Number  of  degrees  of  freedom 

Number  of  directions 

Control  code,  if  ITRAN  =  0,  thenjMg^J  =  [[qp^]  [Mll{] 
if  ITRAN  -  X,  then  [Mom]  =  [^[M^ 


GPAXEL 

QSEL 

NCOL 

NNO 

NDEG 

NDIR 

ITRAN 


3  .  Output  Arguments : 

QSEL  :  Output  transformed  element  matrix, 

Lmout] 


5  .  Error  Returns :  None 


7*  Calling  Sequence: 

CALL  AXTRA1  (GPAXEL,  QSEL,  NCOL,  NNO,  NDEG,  NDIR,  ITRA.N) 
8  .  Input  Tapes :  None 


9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 


11.  Storage  Required:  Total  Storage  required  is  4lE^g  Bytes. 

COL  (3) 

ISAVE  (3) 

12.  Subroutine  User:  ELPLUG 
13-  Subroutines  Required:  None 

14 .  Remarks:  The  output  matrix  is  stored  in  the  input  matrix 
storage  . 
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1. 


Subroutine  Name :  AXTRA3 


Purpose:  Apply  grid  point  axes  transformation  by  triple 

product  multiplication. 


3 .  Equatr.ons  and  Procedures  : 

[an]  =  [Igpa]t*  [sym]  v  [To pa] 


where 

Ogpa] 


is  the  element  grid  point  axes  transformation 
matrix 


[sym] 

[an] 


is  symmetric  input  element  matrix 
is  symmetric  output  transformed  element  matrix 


The  triple  product  is  obtained  by  computing  a  row  of  the 
intermediate  product  of  £  RjPA]  T  *^ym]  and  then 
multiplying  this  intermediate  row  with  [rapid  to  obtain 
a  row  in  [AN]  .  Advantage  is  taken,  during  multiplic¬ 
ation,  of  the  facts  that  [SYM]  and  [AN]  are  symmetric 
and  also  that  [f*GPA]  is  structured  as  a  set  of  (3x3)  or 
(2x?)  matrices  with  main  diagonal  elements  lying  on  the 
main  diagonal  of  [  RjPA] 


4 .  Input  Arguments : 


GPAXEL-  :  Element  grid  point  axes  transformation  matrix, 

[RjpaT 

SYM  :  Input  element  matrix,  symmetric,  singly  sub- 

cripted,  stored  lower  half  by  rows,  [SYM] 
NCOL  :  Number  of  columns  in  SYM  (also  number  of  rows 
in  SYM) 

NNO  :  Number  of  element  node  points 

NDEG  :  Number  of  degrees  of  freedom 

NDIR  :  Number  of  directions 


5.  Output  Arguments: 

AN  :  Output  transformed  element  matrix,  symmetric, 

singly  subscripted,  stored  lower  half  by  rows, 
[AN] 

6.  Error  Returns:  None 
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7.  Calling  Sequence:  Call  AXTRA3 
(GPAXEL,  SYM,  AN,  NCOL,  NNO,  NDEG,  NDIR ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage: 

ROW (48) 

Total  Storage  =  5173  =  335 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  LOC 

14 .  Remarks : 

SYM  .,iust  be  stored  lower  half  by  rows, 

AN  will  be  stored  lower  half  by  rows. 

Internal  intermediate  storage  in  variable  ROW  is 
dimensioned  48.  If  the  order  of  [SYM]  is  greater 
than  48,  an  appropriate  increase  must  be  made  in 
this  intermediate  storage. 


463 


ELPRT 


i.  Subroutine  Name: 


2.  Purpose:  Print  generated  element  matrices. 


3.  Equations  and  Procedures:  Non-suppressed  matrices  are 

printed,  complete  with  titles. 

4.  Input  Arguments: 


MO  I  NX 

AXEL 
NORD 
FT  EL 
NNO 
NODES 

NSEL 

NRSEL 

SEL 

SZALEL 

ANEL 

INEL 

NMASS 

AMASS 

NDMPV 

DAMPV 

NDMPS 

DAMPS 

ILP 

NUMOT 

NAMOUT 


Number  of  storages  in  element  stiffness, 
incremental  stiffness  and  mass  matrices 
Array  containing  element  stiffness  matrix 
Number  of  element  degrees  of  freedom 
Vector  containing  element  load  matrix 
Number  of  element  defining  points 
Array  containing  element  defining  grid  point 
numbers 

Number  of  storages  in  element  stress  matrix 
Element  stress  order 

Array  containing  element  stress  matrix 
Vector  containing  element  thermal  stress  matrix 
Array  containing  element  incremental  stiffness 
matrix 

Element  number 

Number  of  storages  in  element  mass  matrix 

Array  containing  element  mass  matrix 

Not  used 

Not  used 

Not  used 

Not  used 

Element  type  code  number 

Number  of  output  matrices 

Array  containing  output  matrix  names 


5.  Output  Arguments:  None 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

CALL  ELPRT  (NOINK, AKEL, NORD, FTEL,NN0, NODES, NSEL,NRSEL, SEL, 
SZALEL , ANEL , INEL , NMASS , AMASS , NDMPV , DAMPV , NDMPS , 
DAMPS , ILP , NUMOT , N  AMOUT ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 
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10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  Bytes. 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  None 

1*1.  Remarks:  None 
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1.  Subroutine  Name:  OUTMAT 


2.  Purpose:  Sort  element  matrices  on  scratch  tape  and 
output  to  Format  Execution  Monitor  in  an  optimal  manner 

3.  Equations  and  Procedures:  First  the  array  controlling 
the  selection  and  order  of  output  of  the  matrices  (IKNOW) 
is  formed.  The  IKNOW  array  will  contain  the  pass  number 
on  which  each  computed  output  matrix  will  be  written  on 
an  output  tape.  Correspondence  bet ween  the  IKNOW  array 
and  the  output  matrices  is  as  follows: 

IKNOW (6)  :  Transformation  assembly  matrix  (TA) 

IKNOW \ 7 )  :  Master  element  stiffness  matrix  (KEL) 

IKNOWf :  Master  element  applied  load  matrix  (FTEL) 
IKNOW(g)  :  Master  element  stress  matrix  (SEL) 

IKNOW(IO)  :  Master  element  thermal  stress  matrix 

(SZALEL) 

IKNOWfll^  :  Master  element  incremental  matrix  (N) 

IKN0w(12)  :  Master  element  mass  matrix  (M) 

For  each  output  matrix  except  the  element  applied  load  and 
thermal  stress  matrices  the  following  procedure  takes  place 

a.  If  the  matrix  has  not  been  calculated,  as  determined 
by  a  slash  in  its  position  in  the  NAMOUT  array,  its 
position  in  the  IKNOW  array  is  set  equal  to  zero. 

b.  If  the  matrix  has  been  calculated,  then  its  correspond¬ 
ing  output  tape  number  is  obtained  from  the  IOSPEC 
array  and  a  search  is  done  from  the  beginning  of  the 
IOSPEC  array  to  this  matrice ' s  position,  counting  the 
number  of  times  this  tape  number  has  been  encountered. 
This  final  count  is  the  pass  number  on  which  this 
matrix  will  be  vrritten  and  is  placed  into  the  matrix’s 
corresponding  position  in  the  IKNOW  array. 

After  the  IKNOW  array  has  been  formed  it  is  searched  for 
the  greatest  number.  This  number  will  be  the  number  of 
passes  required  to  output  all  of  the  computed  matrices. 

On  each  pass  the  following  procedure  is  used.  The  scratch 
tape  containing  the  element  matrices  is  rewound.  This 
tape  consists  of  two  records  per  element.  The  first  record 
contains  element  definition  data,  the  second  contains  the 
matrices  for  that  element.  The  second  record  is  read  into 
a  dynamic  storage  area  and  interpreted  by  locating  key 
numbers  that  appeared  in  the  record.  A  loop  is  entered 
from  one  to  NELEM.  The  contents  of  the  IKNOW  array  are 
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compared  to  the  pass  number.  When  a  match  is  found  the 
corresponding  matrix  is  written  on  its  output  tape.  3efore 
writing  the  first  element's  contribution  on  its  output 
tape,  the  appropriate  matrix  header  is  written.  In  most 
cases  the  matrices  will  be  output  in  compressed  format. 
However,  in  small  applications  when  the  maximum  element 
order  (NORDM)  or  the  maximum  element  stress  order 
(NRSELM)  is  greater  than  one-half  the  sum  of  the  element 
orders  (NORSUM)  or  the  element  stress  orders  (NRSSUM), 
respectively,  then  the  matrices  will  be  output  in 
uncompressed  format.  A  count  is  maintained  in  IR  and  IC 
for  each  output  matrix  in  order  to  place  each  element's 
contribution  in  the  correct  position  in  the  output  matrix. 
At  the  end  of  the  pass  the  appropriate  matrix  trailer  and 
data  set  trailer  labels  are  written.  The  TA  matrix  is  a 
special  case  in  that  it  is  generated  from  the  element 
definition  data  and  then  placed  on  its  output  tape.  For 
output  of  the  element  applied  load  and  element  thermal 
stress  matrices  the  following  procedure  is  invoked. 

During  the  first  pass  of  the  tape,  if  they  were  not 
suppressed,  the  element  applied  load  and  thermal  stress 
matrices  were  stored  in  the  blank  common  work  area. 
Following  the  first  pass  these  two  matrices  are  output 
in  either  compressed  or  uncompressed  format,  dependent 
upon  the  same  criteria  as  all  other  matrices. 

4.  Input  Arguments: 


NUMOT 

NAMOUT 

I OS PEC 

NTAP3 

NTAP4 

NSYS 

NTD 

NORSUM 

NRSSUM 

NELEM 

NWORKR 

WORK 

NORDM 

NRSELM 


Number  of  output  matrices 
Names  of  output  matrices 

Unit  information  regarding  output  matrices 
Scratch  tape  containing  system  information 
Scratch  tape  containing  element  matrices 
System  order 

Number  of  degrees  of  freedom  per  grid  point 
Summation  of  element  orders 
Summation  of  element  stress  rows 
Number  of  elements 

Number  of  working  storages  available 
Common  work  area 
Maximum  element  order 
Maximum  element  stress  order 


5.  Output  Arguments:  None 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

CALL  USJ}60( NUMOT,  NAMOUT,  IOSEEC,  NTAP3,  NTAP4,  NSYS, 
NTD,  NORSUM,  NRSSUM,  NELEM,  NWORKR,  WORK,  N0RDM,  NR0ELM ) 
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8.  Input  Tapes: 


NTAF3  :  Contains  system  information 

NTAP4  :  Contains  element  matrices  in  compact  form 

9.  Output  Tapes:  Output  tape  units  are  supplied  by  the 

Format  Execution  Monitor;  matrices  are  output  by  columns 
in  compressed  format.  Appropriate  matrix  header  and 
trailer  labels  are  written.  An  output  matrix  consists  of 
all  the  element  matrices  of  that  type  placed  such  that 
their  main  diagonal  positions  lie  on  the  main  diagonal 
of  the  output  matrix  in  succeeding  positions. 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  136E1^  Bytes. 

12.  Subroutine  User:  US04B 

13.  Subroutines  Required: 

US46l 

US462 

US463 

14.  Remarks:  None 
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1.  Subroutine  Name:  US46l 

2.  Purpose:  Write  a-  column  of  an  output  matrix  in  uncom¬ 

pressed  or  compressed  format. 

3.  Equations  and  Procedures:  If  KODE  is  zero,  the  WORK 

■array  has  NSUM  zeros  placed  into  it.  Then,  starting  at 
ISTART,  NROW's  of  ISTORE  are  placed  into  the  correspond¬ 
ing  positions  in  IWORK.  The  variable  NUM  =  NSUM  is  the 
r.unber  of  words  from  IWORK  that  will  be  written  on  tape. 
If  KODE  is  one,  each  element  of  ISTORE  is  compared  to 
zero.  If  it  is  zero,  it  is  ignored.  If  the  element  is 
not  zero,  then  it  is  placed  in  the  IWORK  array  in  the 
first  unused  position  and  th  next  position  in  IWORK  is 
filled  by  the  row  number  in  Jie  output  matrix  of  the 
non-zero  element.  The  row  number  is  corrected  by  ISTART 
in  order  to  place  the  contribution  in  the  correct  ro w  of 
the  output  matrix.  NUM  is  a  counter  used  to  record  the 
number  of  non-zero  numbers  found  and  the  number  of  words 
that  will  be  written  from  IWORK  (NUM  =  2*  number  of  non¬ 
zero  elements  in  ISTORE) . 

4.  Input  Arguments: 

ISTORE  :  Matrix  column  to  be  written 

ICOL  :  Column  number  of  ISTORE  in  matrix 

ISTART  :  Starting  row  number  in  output  matrix 

NROW  :  Number  of  rows  in  ISTORE 

NTAPE  :  Output  tape  number 

IWORK  :  Work  area  for  compression  of  ISTORE 

KODE  :  Determines  whether  matrix  is  to  be  put 

into  compressed  form 
NSUM  :  Sum  of  element  orders 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  Call  US461 

(ISTORE,  ICOL,  ISTART,  NROW,  NTAPE,  IWORK,  KODE,  NSUM) 

8.  Input  Tapes:  None 

9.  Output  Tape:  NTAPE 

Record  format  is  ICOL,  KODE,  NUM,  (IWORK(I),  1=1,  NUM) 
where  ICOL  is  column  number,  KODE  equals  one  or  zero, 

NUM  is  nuh.ver  of  words  remaining  in  record  and  IWORK  is 
the  compressed  or  uncompressed  version  of  ISTORE.  Each 
record  then  contains  NUM  +  3  words . 
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10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  SEO^  Bytes. 

12.  Subroutine  User:  USM60 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1. 


Subroutine  Name:  US462 


2.  Purpose:  Create  a  list  which  defines  the  location  of  the 
contributions  of  an  element  to  the  assembly  transformation 
matrix. 

3.  Equations  and  Procedures:  The  degrees  of  freedom  for  each 
node  point,  with  respect  to  the  system  of  grid  points,  are 
calculated  and  placed  in  LIST.  LIST  is  therefore  of  length 
NNO*NTD.  The  formula  for  determining  this  location  is: 
LIST(K)  =  ( NODES ( I )  -  1)*NTD  +  L 

where  K  =  1,  2,  ...,  NNO*NTD 

1=1,  2,  . . .,  NNO 

L  =  1,  2,  . . .,  NTD 

4.  Input  Arguments: 

NNO  -  number  of  element  node  points 

NODES  -  array  containing  element  node  point  numbers 

NTD  -  number  of  degrees  of  freedom  per  grid  point 

5.  Output  Arguments: 

LIST  -  array  containing  row  number  in  TA  matrix  for  each 
degree  of  freedom  for-  each  element  node  point. 

6.  Error  Returns:  none 

7.  Calling  Sequence:  CALL  US462  (NNO,  NODES,  NTD,  LIST) 

8.  Input  Tapes:  none 

9.  Output  Tapes:  none 

10.  Scratch  Tapes:  none 

11.  Storage  Required:  total  storage  required  is  lFO^g  Bytes. 

12.  Subroutine  User:  US460 

13.  Subroutines  Required:  none 

14.  Remarks;  none 
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1.  Subroutine  Name;  US463 

2.  Purpose:  Obtain  full  column  from  symmetrically  stored  matrix 

3.  Equations  and  Procedures:  For  a  symmetric  matrix  column  is 
equivalent  to  row.  The  corresponding  row  to  ICOL  ie  located 
and  the  elements  of  that  row  up  to  anu  including  the  diagonal 
element  are  placed  in  the  first  and  succeeding  position  of 
COL.  If  ICOL  was  the  last  column  of  the  matrix  the  process 
is  complete  and  control  is  returned  to  the  calling  program. 

If  l'COL  was  not  the  last  column  then  each  element  in  the 
ICOL  position  of  the  remaining  rows  is  placed  into  COL  and 
control  is  returned  to  the  calling  program. 

4.  Input  Arguments: 

SYM  symmetric  matrix  stored  lower  half  by  rows,  singly  sub¬ 
scripted 

N  order  of  SYM 

ICOL  Column  number  of  SYM  desired 

5.  Output  Arguments: 

COL  -  full  column  number  ICOL 

6.  Error  Returns:  none 

7.  Calling  Sequence:  CAL  US463  (SYM,  N,  ICOL,  COL) 

8.  Input  Tapes:  none 

9.  Output  Tapes:  none 

10.  Scratch  Tapes:  none 

11.  Storage  Required:  Total  storage  required  is  29A^g  Bytes. 

12.  Subroutine  User:  US460 

13.  Subroutines  Required:  none 

L4.  Remarks:  none 
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Subroutine  Name: 


ELMAT 


Purpose:  To  output  as  a  format  matrix  elemert  matrices 

in  compressed  form  to  be  used  by  structural  modules  outside 
of  the  U3ERQ4  module. 


Equations  and  Procedures:  The  tape  containing  the 

information  generated  by  subroutines  REG  3  and  REG 4  is  read 
and  then  merged  to  form  one  record  on  the  output  tape  for 
each  element.  The  record  written  for  each  element  is  as 
follows: 


JCOL , KODE , NUM , IEL , I PL , NORD , ( LI STEL (I) ,1=1, WORD ) 

NOINK, (AKEL(I) ,1*1, NOINK) 

NORD , ( PTEL ( I ) , 1*1 , NORD ) 

NNO , (NODES( I )  ,1  =  1  ,NNO ) 
HSEL,(SEL(I),I=1,NSEL) 

NRSEL , ( SZALEL (I) , 1=1 3 NRSEL ) 

NOINK, (ANEL(I) ,1=1, NOINK) 

NMASS , ( AMASS ( I ) , 1=1 ,NMASS ) 

where, 

JCOL  -  is  the  column  number 

KODE  -  is  equal  to  0  to  indicate  non-compression 

NUM  -  is  the  number  of  words  remaining  in  the  record 

NUM=2*NOINK+2»NORD+NNO+NSEL+NRSEL+NMASS+10 


IEL 

IPL 

LISTEL 

AKEL 

FTEL 

NODES 

SEL 

SZALEL 

ANEL 

AMASS 


is  the  element  number 

is  the  element  type  (plug  number) 

a  list  array  used  to  reorder  the  system  degrees 

of  freedom  of  length  NORD 

the  element  stiffness  matrix  of  length  NOINK 
the  element  thermal  load  matrix  of  length  NORD 
an  array  containing  the  reference  points  for 
the  element  of  length  NNO 
the  element  stress  matrix  of  order  NSEL 
the  element  thermal  stress  matrix  of  order  NRSEL 
the  element  incremental  matrix  of  order  NOINK 
the  element  mass  matrix  of  order  NMASS 


Input  Arguments: 


NELEM 

MAXELM 

NAME 

NSET 

NTAPE 

NWORK 

MAT 


number  of  elements  in  analysis 
length  of  maximum  element  record 
array  containing  name  of  output  matrix 
data  set  number  of  output  matrix 
data  set  number  of  input  element  tape 
number  of  words  of  work  storage  available 
work  storage  for  reading  NTAPE  element  data 


Output  Arguments: 


None 


None 


6.  Error  Returns: 

7.  Calling  Sequence: 

ELMAT ( NELEM , MAXELh , NAME , NSET , NT APE , NWORK , MAT ) 

8.  Input  Tapes:  NTAPE 

9.  Output  Tape:  NSET 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  6F21g  Bytes. 

12.  Subroutine  User:  US04B 

13.  Subroutine  Required: 

EUTL5 

EUTL6 

14.  Remarks:  None 


APPENDIX  IX 


DIRECT  MACHINE  CONTROL  IMPLEMENTATION  DOCUMENT 


This  documentation  is  primarily  intended  for  the 
programmer  analyst  or  systems  analyst  responsible  for  the 
initial  implementing  and  subsequent  maintenance  of  the 
system. 

There  are  five  sections  in  this  document.  Special 
program  considerations  are  presented  in  Section  I  (Reference 
2).  Included  in  this  section  is  a  description  of  interna) 
data  storage,  external  or  peripheral  data  storage,  and 
programming  specifications  followed.  Section  II  deals  with 
the  operational  considerations  of  the  program.  Included  in 
this  section  is  a  discussion  of  the  procedure  to  be  followed 
in  an  initial  implementation  of  the  program  at  an  installation. 
Data  set  assignments  and  storage  limitations  are  discussed, 
and  some  special  control  cards  are  described  (Reference  2). 
Section  III  describes  how  new  agendum  level  abstraction 
instructions  may  be  added  to  the  MAGIC  system.  Section  IV 
contains  a  catalogued  procedure  used  for  initial  implementation 
of  the  MAGIC  System.  Section  V  contains  a  preprinted  form 
to  be  used  in  reporting  any  problems  with  the  implementation 
or  running  of  the  MAGIC  program. 
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SECTION  I 


SPECIAL  PROGRAMMING  CONSIDERATIONS 


A.  INTERNAL  DATA  STORApE 

1.  Common  Storage 

There  are  only  four  variables  which  remain  in  blank 
common  at  all  times.  These  four  variables  are  initialised 
when  the  machine  resources  module  is  compiled.  The  four 
variables  are  stored  in  the  first  four  words  of  blank  common 
and  are  defined  as  follows:  (1)  the  first  word  contains  an 
integer  which  is  the  logical  number  of  the  system  input  data 
set,  (2)  the  second  word  contains  an  integer  which  is  the 
logical  number  of  the  system  output  data  set,  (3)  the  third 
word  contains  an  integer  which  is  the  order  of  the  largest 
matrix  permitted  in  the  system.  (4)  the  fourth  word  contains 
the  number  of  words  remaining  in  blank  common  (i.e.,  from  word 
five  to  the  end).  The  remaining  portion  of  blank  common, 
whose  length  is  specified  in  word  number  four,  is  used  by  all 
FORMAT  II  routines  as  working  storage. 


2.  Storage  of  Alphameric  Information 

All  alphameric  information  (e.g.,  matrix  names)  is 
stored  one  character  per  word.  Consistency  is  retained  by 
reading  all  alphameric  data  into  storage  with  an  "Al"  format 
and  by  compiling  all  alphameric  data  into  storage  using  DATA 
statements  with  an  "1H"  format. 


3.  Matrix  Names 

The  names  of  all  matrices  processed  by  the  program 
are  one  (1)  to  six  (6)  characters  in  length.  The  first  character 
of  a  matrix  name  must  be  alphabetic.  The  matrix  names  are 
stored  one  character  per  word.  A  seventh  word  is  addended  to 
the  six  words  which  contain  the  characters  constituting  the 
matrix  name.  This  last  word  contains  a  plus  (+)  or  minus  (-) 
integer  one  (1).  The  sign  of  the  seventh  word  indicates  the 
sign  of  the  matrix,  (i.e.,  plus  or  minus).  (Note:  The 
characters  in  words  two  (?)  through  six  (6)  may  be  blank.) 
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4.  Data  Set  Names 

The  names  of  master  input  and  maste*  output  a?ta 
sets  follow  the  same  rules  as  matrix  names.-  uith  one  exception. 
The  seventh  word  of  the  data  set  name  does  \ot  necessarily 
contain  an  integer  one  (1).  Instead  it  contains  an  integer 
which  is  specified  by  the  uso-r  of  the  program  when  the  particular 
data  set  was  created.  If  the  data  set  is  neither  a  master  input 
data  set  nor  a  master  output  data  set,  the  daca  set  name  consists 
of  six  (6)  blank  characters  followed  by  an  integer  zero  (C). 


5-  Compression  Scheme 

The  columns  of  all  matrices  are  stored  in  one  of  two 
formats,  full  or  compressed. 

If  the  number  of  zero  elements  in  the  column  is  greater 
than  fifty  percent,  the  column  is  stored  in  compressed  format. 
When  a  column  is  compressed,  it  is  stoi  d  as  follows: 


V 
I 

V 
I 


• 

V 

I 

The  V's  are  the  non-zero  values  in  the  column  and  are 
floating  point  numbers.  The  I's  are  the  row  numbers  of  each  of 
the  V's  and  are  stored  as  integers.  The  row  number  of  any  given 
value  is  denoted  by  the  integer  immediately  following  the  value 
in  storage. 

If  the  number  of  non-zero  elements  is  not  greater  than 
fifty  percent,  the  column  is  stored  in  full  format.  When  a 
column  is  full,  it  is  stored  as  follows: 


V 

V 

V 


The  V 
column  and  are 


s  are  the  zero  and  non-zero  elements  of  the 
floating  point  numbers. 
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B.  DATA  SET  FORMATS 


1.  Data  Set  Header  Record 

The  first  logical  record  on  all  data  sets  which  are 
processed  by  the  program  is  called  a  data  set  header.  The 
data  set  header  is  ten  words  long.  The  first  word  contains 
an  integer  number  which  is  minus  ten  (-10).  This  word  indicates 
that  the  record  is  a  data  set  header.  The  second  word  contains 
an  integer  zero  (0).  This  word  has  no  significance  in  a  data 
set  header.  The  third  word  contains  an  integer  seven  (?)• 

This  word  indicates  the  number  of  words  remaining  in  the  logical 
record.  The  remaining  seven  words  contain  an  alphameric  data 
set  name  if  the  data  set  is  either  a  master  input  or  master 
output  data  set,  or  contain  seven  (7)  zeros  (0)  if  the  data 
set  is  not  a  master  input  or  master  output  data  set. 


2.  Data  Set  Trailer  Record 

The  last  logical  record  on  ail  data  sets  which  are 
processed  by  the  program  is  called  a  data  set  trailer.  The 
data  set  trailer  is  four  (4  )  words  long.  The  first  word 
contains  an  integer  which  is  minus  twenty  (-20).  This  word 
indicates  that  the  record  is  a  data  set  trailer.  The  second 
word  contains  an  integer  zero  (0).  This  word  has  no  signi¬ 
ficance  in  a  data  set  trailer.  The  third  word  contains  an 
integer  one  (1).  This  word  indicates  the  number  of  words 
remaining  in  the  logical  record.  The  fourth  word  contains  an 
integer  zero  (0).  This  word  has  no  significance  in  a  data 
set  trailer. 


3.  Matrix  Header  Record 

The  first  logical  record  in  all  matrices  which  reside 
on  data  sets  which  are  processed  by  the  program  is  called  a 
matrix  header.  The  matrix  header  is  twelve  (12)  words  long. 
The  first  word  contains  an  integer  which  is  minus  one  (-1). 
This  word  indicates  that  the  record  is  a  matrix  header.  The 
second  word  contains  an  integer  zero  (0).  This  word  has  no 
significance  in  a  matrix  header.  The  third  word  contains  an 
integer  nine  (9)*  This  word  indicates  the  number  of  words, 
remaining  in  the  logical  record.  The  next  seven  (7)  words 
contain  the  characters  which  comprise  the  matrix  name.  The 
last  two  words  contain  integer  numbers  which  are  the  number 
of  rows  and  the  number  of  columns,  respectively,  in  the 
matrix. 
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Matrix  Trailer  Record 

The  last  record  in  all  matrices  which  reside  on  data 
sets  which  are  processed  by  the  program  is  called  a  matrix 
trailer.  The  matrix  trailer  is  four  (4)  words  long.  The  first 
word  contains  an  integer  minus  two  (-2).  This  word  indicates 
that  the  record  is  a  matrix  trailer.  The  second  word  contains 
an  integer  zero  (0).  This  word  has  no  significance  in  a  matrix 
trailer.  The  third  word  contains  an  integer  one  (1).  This 
word  indicates  the  number  of  words  remaining  in  the  logical 
record.  The  f-'urth  word  contains  an  integer  zero  (0).  This 
word  has  no  significance  in  a  matrix  trailer. 


5.  Matrix  Column  Records 

The  logical  records  between  the  matrix  header  record 
end  the  matrix  trailer  record  contain  the  columns  of  the  matrix, 
one  column  per  logical  record.  The  column  records  are  variable 
in  length.  The  length  depends  on  the  number  of  rows  in  the 
matrix  and  the  number  of  non-zero  elements  in  the  column.  The 
first  word  cf  column  record  contains  an  integer  which  is  the 
column  number.  The  second  word  contains  an  integer  which  is 
either  zero  (0)  or  one  (1).  A  zero  (0)  indicates  that  the  column 
is  full.  A  one  (1)  indicates  that  the  column  is  compressed. 

The  third  word  contains  an  integer  which  indicates  the  number 
of  words  remaining  in  the  logical  record.  Words  four  (*1)  to 
the  end  contain  the  matrix  column  elements  either  in  full  or 
compressed  form.  If  a  column  does  not  contain  any  non-zero 
elements,  a  corresponding  column  is  omitted  from  the  data  set. 


C.  PROGRAMMING  STANDARDS 

In  the  design  and  coding  of  the  FORMAT  II  system  every 
effort  was  made  to  keep  the  system  machine  independent.  With 
this  consideration  in  mind*  the  following  rules  were  developed 
and  obeyed. 

a.  The  FORMAT  II  system  is  written  entirely  in  FORTRAN  IV. 

b.  No  advantage  was  taken  of  the  peculiarities  in  the 
FORTRAN  IV  language. 

c.  All  variables  are  implicitly  typed  with  the  exception 
of  logical  variables  which  cannot  be  Implicitly 
typed . 
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"EQUIVALENCE"  statements  were  used  only  when  they 
were  absolutely  necessary. 

No  on-line  communication  with  the  computer  operator 
is  performed. 

Blank  common  is  used  as  working  storage  by  all 
routines.  The  size  of  blank  common  is  compiled 
into  one  control  section  (MRES)  and  .is  made  available 
to  all  routines  by  being  stored  in  the  fourth  word 
of  blank  common.  Thus  by  recompiling  only  one 
control  section  (MRES)*  the  entire  system  is  able 
to  take  advantage  of  additional  core  storage  which 
may  have  been  made  available. 

All  references  to  FORTRAN  logical  data  sets  are 
variable.  The  numbers  of  all  the  FORTRAN  logical 
data  sets  available  to  the  FORMAT  II  system  are 
compiled  into  one  control  section  (MRES)  and  subse¬ 
quently  made  available  to  all  routines.  These  data 
set  numbers  may  be  changed  by  recompilation  of  one 
control  section  (MRES)  or  via  the  input  data. 

All  alphameric  information  is  stored  one  character 
per  word,  thus  no  adcantage  of  word  size  was  taken. 

No  advantage  of  the  bit  configuration  of  any 
character  was  taken. 

The  FORMAT  II  system, is  extremely  modular,  making 
additions  and  modifications  as  simple  as  possible. 

In  general,  very  straight  forward  and  conservative 
coding  practices  were  followed. 


SECTION  II 


OPERATIONAL  CONSIDERATIONS 


A.  FORMAT  II  DAI  .T  PHILOSOPHY 

The  FORMAT  II  system  is  designed  to  make  extensive  use 
of  the  input/output  configuration  of  a  given  installation. 

Since  the  philosophy  of  Format  has  been  to  keep  the  system 
completely  machine  independent  all  references  to  input/output 
devices  is  in  terms  of  logical  data  sets.  The  FORMAT  II  data 
set  philosophy  is  described  in  the  following  pages.  The  main 
topics  covered  are  the  manner  in  which  an  installation's 
standard  FORTRAN  data  set  configuration  is  communicated  to 
the  FORMAT  II  system,  the  minimum  data  set0  requirements  of 
the  FORMAT  II  system,  and  the  method  of  selection  of  data 
sets  for  use  as  FORMAT  II  system  utilities. 

A  logical  data  set  in  the  FORMAT  II  system  can  take  on 
one  to  four  Format  system  functions.  The  data  may  be  a  master 
input  data  set;  that  is,  one  which  contains  matrices  wnich 
are  required  in  the  execution  of  the  user's  problem.  The 
data  set  may  be  a  master  output  data  set;  that  is,  one  which 
is  to  contain  matrices  generated  by  the  user's  problem  and  which 
Is  to  be  saved  at  the  end  of  the  problem  execution.  The  data 
set  may  be  an  input/output  utility  data  set;  that  Is,  one 
which  may  be  used  by  the  FORMAT  II  system  during  both,  pre¬ 
processing  and  execution  as  intermediate  storage.  Finally 
the  data  set  may  be  the  !■  struction  data  set.  The  only  function 
of  this  data  set  is  tc  contain  the  executable  format  instructions 
as  generated  during  the  preprocessing  phase  of  a  given  run. 

This  instruction  data  set  Is  subsequently  read  during  the 
execution  phase  of  the  same  run.  In  addition  to  the  four 
previously  mentioned  FORMAT  system  functions,  there  are  two 
logical  data  set  numbers  which  correspond  to  the  system  input 
unit  and  system  output  unit  of  the  operating  system  monitoring 
execution  of  the  FORMAT  II  system.  These  two  data  sets  are 
used  by  the  FORMAT  II  system  exclusively  for  reading  cards  on 
or  off-line  ar.u  for  printing  on  or  off-line.  Note  that  this 
allows  batch  processing. 

There  are  two  ways  in  which  an  installation's  standard 
FORTRAN  logical  data  sets  are  made  available  to  the  FORMAT  II 
system.  One  of  the  two  ways  is  by  recompiling  subroutine 
MRES.  This  subroutine  must  have  compiled  into  it  the  logical 
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data  set  number  corresponding  to  the  system  input  unit  and 
the  logical  data  set  number  corresponding  to  the  system  output 
unit.  The  subroutine  may  have  compiled  into  it  information 
about  some  or  all  of  the  installation’s  standard  FORTRAN 
logical  data  sets.  This  information  consists  of  the  five 
following  quantities  for  each  data  set:  (1)  the  logical  data 
set  number;  (2)  the  FORMAT  II  system  function  of  the  data 
set;  (3)  the  device  with  which  the  data  set  is  associated, 

(e.g.,  tape;;  (4)  the  logical  channel  to  which  the  device  is 
attached,  (e.g..  A);  (5)  the  capacity  of  the  data  set  in  basic 
machine  units,  (e.g.,  5000  words).  (A  capacity  of  zero  (0) 
indicates  infinite  capacity.)  The  second  way  the  installation’s 
four  standard  FORTRAN  logical  data  sets  may  be  made  available 
to  the  FORMAT  II  system  is  by  the  use  of  the  "NEW”  option  on 
the  $MAGIC  card  and  a  SETUP  card  for  each  of  the  standard 
data  sets.  The  "NEW"  option  has  the  effect  of  zeroing  out 
all  the  data  set  information  which  has  been  compiled  into  the 
subroutine,  with  the  exception  of  the  logical  data  set  number 
of  the  system  input  unit  and  the  system  output  unit.  Each 
SETUP  card  has  the  effect  of  re-establishing  the  five  quantities 
which  are  associated  with  each  data  set. 

Once  the  installation's  standard  configuration  has  been 
compiled  into  the  subroutine  MRES,  temporary  modifications 
may  be  made  by  the  use  of  the  "CHANGE"  option  on  the  $MAGIC 
card  and  a  DELETE  card  or  UPDATE  card,  depending  on  the 
particular  modification  to  be  made.  The  "CHANGE"  option 
indicates  that  the  DELETE  or  UPDATE  cards  follow  the  $MAGIC 
card.  The  DELETE  card  has  the  effect  of  zeroing  out  all 
information  associated  with  the  specified  data  set.  The  UP¬ 
DATE  card  has  the  effect  of  changing  any  or  all  the  information 
associated  with  an  existing  data  set,  that  is  a  data  set 
whose  associated  information  has  been  compiled  into  subroutine 
MRES:  or  has  the  effect  of  making  an  additional  data  set.s 
available  to  the  FORMAT  II  system  if  the  data  set  did  not 
exist,  that  is,  if  the  data  set  information  associated  with 
the  specified  data  set  has  not  been  compiled  into  subroutine 
MRFS. 


There  are  several  errors  which  will  result  from  improper 
specification  of  logical  data  set  information  in  the  FORMAT  II 
system.  The  most  serious  of  the  errors  are  those  which  the 
FORMAT  II  system,  by  virtue  of  its  machine  independence,  can¬ 
not  detect  and  from  which  it  cannot  recover.  These  errors 
are:  (1)  having  specified  an  invalid  logical  data  set  number 
for  either  the  system  input  unit  or  the  system  output  unit  in 
the  compiled  soubroutine  MRES;  (2)  having  specified  the 
number  of  a  logical  data  set  as  a  FORMAT  II  system  function 
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which  is  not  in  binary  mode  or  which  is  not  defined  as  one  of 
the  installation's  standard  FORTRAN  logical  data  sets.  These 
Incorrect  specifications  may  result  from  the  use  of  a  "SETUP" 
or  "UPDATE"  card,  or  improper  use  of  subroutine  MRES  during 
compilation.  There  are  other  errors  whjch  result  from  invalid 
specification  of  logical  data  set  information,  which  are 
internal  to  the  FORMAT  II  system  and  hence,  can  be  detected 
by  the  FORMAT  II  system.  These  errors  are:  (1)  specifying  a 
logical  data  set  as  a  FORMAT  II  system  function,  when  the 
lata  set  is  the  system  input  or  output  unit;  (2)  specifying 
duplicate  data  set  numbers  on  two  different  SETUP  cards;  (3) 
specifying  a  device  type  other  than  tape  or  disk  for  a  data 
set  whose  function  is  master  input  or  master  output;  (H)  not 
specifying  a  sufficient  number  of  data  sets  as  being  available 
to  the  FORMAT  II  system.  Item  number  *1  in  the  list  of  errors 
will  be  clarified  in  the  following  pages. 

The  FORMAT  II  system  requires  that  a  certain  number  of 
logical  data  sets  be  available  for  use  as  system  utilities 
during  the  preprocessing  phase  and  execution  phase.  The  function 
and  method  of  selection  of  all  required  utilities  is  described 
below.  The  first  data  set  selected  by  the  preprocessor  is 
the  data  set  which  is  to  contain  the  executable  Format 
instructions.  Since  this  data  set  is  a  FORMAT  II  system  func¬ 
tion,  it  may  have  been  established  at  the  time  all  the  system 
functions  were  established.  However,  if  no  data  set  available 
to  Format  has  been  given  this  system  function,  the  preprocessor 
selects  for  this  function  one  of  the  data  sets  that  has  the 
FORMAT  II  system  function  input/output  utility.  The  next  data 
set  selected  is  used  as  a  communication  medium  between  the  pre¬ 
processor  modules.  The  preprocessor  selects  a  data  set  which 
system  function  is  input/output  utility.  This  data  set  is 
set  outside  to  contain  any  matrices  which  may  be  card  input. 
During  the  allocation  phase  a  fourth  data  set  is  selected  for 
temporary  use  by  the  allocator.  This  data  set  is  also  selected 
from  the  FORMAT  II  input/output  utilities.  If  no  matrices 
have  been  card  input  it  is  possible  that  the  data  set  selected 
by  the  allocator  coincides  with  the  data  set  which  was  to 
contain  the  card  input  matrices.  In  general,  the  preprocessor 
can  function  with  a  minimum  of  three  (3)  data  sets  if  each 
one  has  the  FORMAT  II  system  function  of  input/output  utility. 

If  card  input  matrices  exist  in  the  user’s  problem,  four  (4) 
FORMAT  II  input/output  utilities  must  exist. 

The  minimum  data  set  requirements  for  the  execution  phase 
are  determined  during  allocation.  The  user's  problem  is 
analyzed  and  the  required  number  of  master  input  and  master 
output  data  sets  is  determined.  Specific  data  sets  are  selected 
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from  those  whose  FORMAT  II  system  function  is  either  master 
input  or  master  output.  If  any  data  sets,  whose  system  function 
is  master  input  or  master  output,  have  not  been  selected  for 
the  user's  problem,  its  system  function  is  changed  from  master 
input  or  master  output  to  input/output  utility. 

Associated  with  each  valid  abstraction  instruction  is  an 
arithmetic  module  which  is  under  control  of  the  execution 
monitor.  Each  of  these  arithmetic  modules  requires  a  certain 
number  of  scratch  data  sets  in  addition  to  the  data  sets 
containing  the  matrices  which  are  input  to  the  instruction  or 
created  by  the  instruction.  As  a  result,  the  allocator  scans 
the  user's  abstraction  instructions  and  determines  the  number 
of  scratch  data  sets  required  by  each  associated  arithmetic 
module.  The  maximum  of  these  numbers  is  then  ascertained  and 
this  number  of  data  sets  is  set  aside  for  future  use  as  scratch 
data  sets.  These  data  sets  are  selected  from  the  data  sets 
whose  FORMAT  II  system  function  is  input/output  utility.  At 
this  point  the  matrices  occurring  3n  the  user's  problem  are 
allocated  to  the  remaining  data  sets  whose  system  function  is 
input /output  utility. 

There  are  many  errors  which  will  occur  when  the  minimum 
requirements  of  the  FORMAT  II  system  are  not  met.  All  of  these 
errors  are  detectable  by  the  FORMAT  II  system.  When  one  occurs 
the  appropriate  error  message  is  written.  The  most  common 
error  which  occurs  is  not  having  enough  input/output  utilities 
available  to  the  preprocessor  at  the  time  of  the  selection  of 
an  intermediate  data  set.  When  this  condition  arises,  the  error 
message  which  Is  written  on  the  system  output  unit  indicates 
the  intermediate  data  set  which  the  preprocessor  has  been 
unable  to  select.  The  condition  can  be  corrected  by  specifying 
more  data  sets  with  the  FORMAT  II  system  function  cf  input/out¬ 
put  utility.  An  error  condition  also  results  when  the  user's 
problem  requires  more  master  Input  data  sets  than  exist  with 
the  FORMAT  II  system  function  of  master  input.  The  error 
occurs  also  for  an  Insufficient  number  of  master  output  data 
sets. 


B.  STORAGE  LIMITATIONS 

The  FORMAT  II  system  is  very  flexible  in  its  utilization 
of  working  storage,  in  that  all  subroutines  use  blank  common 
as  working  storage  and  in  that  the  allocation  of  blank  common 
storage  is  all  dynamic.  The  length  of  blank  common  is 
initialized  in  the  COMMON  statement  in  subroutine  MRES.  The 
size  of  blank  common  is  bounded  above  only  by  the  amount  of 
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core  storage  available  at  a  given  installation.  For  large 
matrix  problems  it  is  desirable  to  have  blank  common  as  large 
as  possible,  since  the  FORMAT  II  system  utilizes  a.'l  of  :he 
available -blank  common  storage.  The  lower  bound  of  the  size 
of  blank  common  is  determined  by  one  of  two  things:  (1)  the  size 
of  a  particular  FORMAT  II  case,  or  (2)  708  words,  whichever 
is  greater.  The  size  of  a  FORMAT  II  case  is  a  function  of 
such  quantities  as,  the  number  of  abstraction  instructions, 
the  size  of  the  matrices  in  the  system,  the  number  of  matrices 
in  the  system,  etc.  Since  the  allocation  of  blank  common 
storage  is  all  dynamic  and  is  a  function  of  the  size  of  the 
user’s  problem,  it  is  very  difficult  to  calculate  the  exact 
number  of  words  of  blank  common  required.  However  a  few 
guide  lines  will  be  given.  In  subroutine  MRES  a  variable 
named  KONST  is  initialized.  This  variable  is  the  order  of  the 
largest  matrix  which  the  FORMAT  II  system  will  process.  The 
size  of  blank  common  working  storage  (i.e.,  the  WORK  array) 
must  be  at  least  four  and  one  half  times  the  value  of  the 
variable  KONST.  Since  the  FORMAT  II  system  is  designed  to 
handle  matrices  of  order  up  to  2000,  the  usual  value  of  KONST 
is  2000  and  the  mininum  size  of  blank  common  working  storage 
is  9000  words. 


C .  INITIAL  IMPLEMENTATION 


The  following  is  a  discussion  of  the  procedure  a  system 
analyst  should  go  through  in  initially  implementing  the 
FORMAT  II  system  at  his  Installation.  There  are  several  para¬ 
meters  which  define  the  basic  machine  configuration  which  must 
be  set.  All  these  parameters  are  contained  in  subroutine  MRES 
and  are  defined  as  follows: 

a)  NPIT  is  the  FORTRAN  logical  data  set  number  of  the 
system  input  data  set. 

b)  NPOT  is  the  FORTRAN  logical  data  set  number  of  the 
system  output  data  set. 

c)  NAGEND  is  the  FORTRAN  logical  data  set  numbe*  *>f  the 
data  set  which  contains  the  agendum  level  abstraction 
instructions.  If  your  installation  does  not  make  use 
of  the  AGENDUM  capabilities  set  this  variable  to  zero. 

d)  KONST  is  the  order  of  the  largest  matrix  which  the 
FORMAT  II  system  will  process. 

e)  NWORK  is  the  length  of  the  table  WORK.  This  length 
is  the  size  of  blank  common  less  four.  NWORK  must 
be  at  least  four  and  one  half  times  KONST. 
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f)  KONPIG  is  a  table  which  describes  all  the  FORTRAN 
logical  data  sets  which  are  available  for  use  by  the 
the  FORMAT  II  system.  In  the  KONFIG  table  there 

are  five  entries  for  each  of  the  available  data  sets. 

The  first  entry  is  the  FORTRAN  logical  data  set 
number  of  an  available  data  set.  Each  of  these 
data  sets  must  be  in  binary  mode.  The  second  entry 
in  the  KONFIG  table  is  the  FORMAT  II  system  function 
which  the  data  set  will  have.  At  present  there  are 
four  FORMAT  II  system  functions,  master  input  data 
set,  master  output  data  set,  utility  data  set,  and 
instruction  data  set.  A  master  input  data  set  is 
one  which  nay  be  mounted  prior  to  a  FORMAT  II  execution 
and  whicv  may  contain  previously  generated  matrices. 

A  code  o-  .wo  (2)  is  entered  in  KONFIG  for  this  type 
of  data  A  master  output  data  set  is  one  which 

may  be  saved  at  the  end  of  a  FORMAT  II  execution  and 
which  may  contain  matrices  which  are  generated  during 
a  FORMAT  II  execution.  A  code  of  three  (3)  is  entered 
in  KONFIG  for  this  type  of  data  set.  A  master  out¬ 
put  data  set  m.  /  be  used  in  a  later  FORMAT  II  execution 
as  a  master  input  data  set.  A  utility  data  set  is  one 
which  is  used  by  the  FORMAT  II  system  as  scratch 
storage.  A  code  of  one  (1)  is  entered  in  KONFIG  for 
this  type  of  data  set.  The  instruction  data  set  is 
the  data  set  in  the  Information  interface  between 
the  preprocessor  monitor  and  the  execution  monitor. 

A  code  of  four  (4)  is  entered  in  KONFIG  for  this  type 
of  data  set.  The  third  entry  in  the  KONFIG  table  for 
a  data  set  is  a  code  for  the  type  of  device  which 
contains  the  data  set.  The  codes  are  one  (1),  two  (2), 
three  (3),  and  four  (4)  indicating  a  device  type  of 
tape,  disk,  drum,  and  a  data  cell,  respectively.  The 
fourth  entry  in  the  KONFIG  table  is  a  code  for  the 
logical  channel  to  which  each  device  is  attached. 

The  codes  are  one  (1)  through  ten  (10)  indicating 
logical  channels  A  through  J  respectively.  The  fifth 
and  final  entry  in  the  KONFIG  table  is  the  capacity 
in  basic  machine  units  (e.g.,  words)  of  the  data  set. 

A  zero  (0)  indicates  that  the  data  set  is  assumed  to 
be  infinite  in  capacity.  At  present  this  characteristic 
is  non- functional. 

g)  One  final  variable  must  be  initialized  in  subroutine 
MRES.  This  variable  is  NUMR  which  is  the  number  of 
data  sets  defined  in  the  KONFIG  table. 
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In  assigning  FORMAT  II  systems  functions  to  the  available 
data  sets,  the  following  rules  must  be  followed:  (1)  The  data 
set  number  of  all  available  data  sets  (i.e.,  NPIT,  NPOT,  and 
all  data  sets  defined  in  the  KONFIG)  must  be  unique.  (2)  All 
data  sets  defined  in  the  KONFIG  table  must  be  available  through 
the  Fortran  system  and  must  be  in  binary  mode.  (3)  Only  one 
data  set  may  be  given  the  FORMAT  II  system  function  of  the 
instruction  data  set.  If  the  FORMAT  II  system  function  of 
instruction  data  set  is  not  specified  for  any  data  set,  one 
is  selected  from  the  utility  data  secs.  (4)  At  least  five 
(5)  utility  data  sets  must  be  specified  exclusive  of  that 
which  may  be  selected  as  an  instruction  data  set.  (5)  Any 
number  of  master  input  or  master  output  data  sets  may  be  specified. 

This  concludes  the  initialization  procedure  in  subroutines 
MRES.  The  only  other  area  the  systems  analyst  need  be  concerned 
with  is  the  overlay  structure  of  the  FORMAT  II  system.  The 
overlay  structure  on  a  subroutine  basis  is  illustrated  in 
Section  III. 


D.  MACHINE  RESOURCE  DATA  CARD 

To  assist  the  FORMAT  systems  analyst  in  initially 
implementing  the  FORMAT  system  or  in  temporarily  modifying 
the  existing  logical  machine  configuration,  several  machine 
resources. data  cards  are  available.  These  cards  are  (1)  the 
SETUP  card,  (2)  the  UPDATE  card,  and  (3)  the  DELETE  card. 

These  cards  are  used  in  conjunction  with  the  options  on  the 
$ FORMAT  card.  The  $MAGIC  card  defines  the  beginning  of  a 
FORMAT  case.  The  options  define  the  machine  resources  to  be 
used  during  the  running  of  the  case.  The  form  of  the  card  is: 

1_  16 

$ MAGIC  STANDARD 

NEW 

CHANGE 

Where  the  options  are: 

STANDARD  -  the  standard  machine  configuration  will  be 
used  for  this  run. 

NEW  -  a  totally  new  machine  configuration  is  to 

be  entered  for  this  run  using  SETUP  cards. 

CHANGE  -  a  change  to  the  standard  machine  configuration 
is  to  be  made  for  this  run  using  either 
UPDATE  or  DELETE  cards. 


The  machine  resources  data  cards  are  defined  as  follows: 

(1)  SETUP  cards  are  required  if  the  NEW  option  has  been 
specified  on  the  $MAGIC  card.  This  set  of  cards  defines  a 
new  and  temporary  machine  configuration.  The  form  of  the 
card  is: 

I 

SETUP  (n,  "unction,  device,  channel,  capacity) 
where  the  arguments  are: 

n  -the  logical  data  set  number 

i'unction-the  FORMAT  II  system  function  to  be  assigned 
to  this  data  set.  This  argument  may  be 
MASTRI  indicating  master  input  data  set, 
MASTRO  indicating  master  output  data  set, 
IOUTIL  indicating  intermediate  utility  data 
set,  or  INSTRN  indicating  the  instruction 
data  set. 

device  -the  type  of  external  storage  device  that  the 
logical  data  set  is  to  reside  upon.  This 
argument  may  be  TAPE,  DISK,  DRUM,  or  CELL. 

channel  -the  channel  to  which  the  device  is  attached. 
This  argument  is  an  alphabetic  character 
from  A  thru  J. 

capacity-the  capacity  of  the  logical  data  set  in 

basic  machine  units  (e.g.,  words).  A  zero 
indicates  an  infinite  capacity. 

(2)  The  UPDATE  card  is  used  if  the  change  option  has  been 
specified  on  the  $MAGIC  card.  This  card  defines  changes  or 
additions  to  the  standard  machine  configuration.  The  form  of 
the  card  is: 

7 

UPDATE  (n,  function,  device,  channel,  capacity) 

Where  the  arguments  are  identical  to  those  defined  for  the 
SETUP  card. 


(3)  The  DELETE  card  is  used  if  the  change  option  has 
been  specified  on  the  $MAGIC  card.  This  card  deletes  a 
data  set  from  the  standard  machine  configuration.  The  form 
of  the  card  is: 

7 

DELETE  (n) 

Where  the  argument  is : 

n  -  che  logical  data  set  number  of  the  data 
set  to  be  deleted. 

The  machine  resources  data  cards  immediately  follow  the 
$MAGIC  card  in  the  deck  setup.  For  more  information  on  the 
machine  resources  data  cards  refer  to  subroutines  MRES,  MRES1, 
MRES11,  MRES2. 


SECTION  III 


AGENDUM  LEVEL  ABSTRACTION  INSTRUCTIONS 


A.  INTRODUCTION 

An  Agendum  Level  abstraction  capability  has  been  incor¬ 
porated  into  the  MAGIC  System.  The  abstraction  instructions 
for  any  type  of  analysis  will  be  automatically  generated  for 
the  user  when  he  specifies  the  corresponding  option  on  the 
$INSTRUCTION  card.  The  Agendum  library  is  expandable  and  tne 
addition  of  more  abstraction  instruction  sequences  (Agendum) 
only  requires  the  updating  of  subroutine  AGENDM,  and  of  course 
the  Agendum  library  itself.  The  use  of  an  Agendum  in  no  way 
restricts  the  user  because  he  can  include  in  his  input  deck 
his  own  abstractions  to  be  merged  with  the  selected  Agendum. 


B.  MODIFICATIONS  TO  SUBROUTINE  AGENDM 

Subroutine  AGENDM  controls  the  selection  from  the  Agendum 
library  of  the  abstraction  instruction  sequence  requested  on 
the  $INSTRUCTJ.ON  card.  At  present,  this  subroutine  has  the 
capability  to  select  four  Agendum;  STATICS,  STATICS2,  DYNAMICS, 
and  STABILITY.  In  order  to  add  more  options  the  following 
variables  and  arrays  will  have  to  be  modified: 

a)  TYPE  is  the  matrix  which  contains  the  names  of 
the  abstraction  sequences  in  the  agendum  library. 
Increase  the  dimensions  of  this  matrix  and  add  the 
new  Agendum  names  via  DATA  statements. 

b)  LTYPE  is  an  array  which  contains  the  length  of  each 
Agendum  name  in  the  TYPE  array.  Increase  the 
dimension  of  this  array  and  add  the  lengths  of  the 
new  Agendum  names  via  the  DATA  statement  in  sequential 
order  corresponding  to  the  names  in  the  TYPE  array. 

c)  NTYPE  is  the  variable  which  defines  the  number  of 
available  Agendum  in  the  library.  Increase  this 
variable  to  the  number  of  names  in  the  TYPE  array. 
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c. 


SETTING  UP  THE  AGENDUM  LIBRARY 


In  subroutine  MRES  the  variable  NAGEND  defined  the  FORTRAN 
logical  unit  number  of  the  data  set  which  contains  the  Agendum 
level  abstraction  instructions.  Subroutine  AGENDM  expects  the 
abstraction  instructions  in  the  library  to  have  the  same  charac¬ 
teristics  as  card  images,  eighty  (80)  byte  records. 


1.  Agendum  Control  Cards 

Each  sequence  of  Abstraction  instructions  must  be 
proceeded  by  a  control  card  which  contains  a  name  corresponding 
to  a  name  in  the  TYPE  array  in  subroutine  AGENDM.  For  example, 
if  the  name  STATICS  appeared  in  the  TYPE  array  then  the 
abstraction  instructions  corresponding  to  the  statics  analysis 
would  have  to  be  proceeded  by  the  control  card  $STATICS,  the 
$  begins  in  card  column  1  and  there  are  no  blanks  allowed 
in  the  control  card. 

The  last  card  signifying  the  end  of  all  agendum  is 
the  $$END  control  card. 


2.  Examples  of  an  Agendum  Library 
CC1 

$ STATICS 

,  Statics  abstraction  instruction 

♦DYNAMICS 

’ 

,  Dynamics  abstraction  instruction 

♦STABILITY 

► 

<  Stability  abstraction  instruction 

ii$END  (end  of  agendum  library) 
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3.  Examples  of  Agendum  Usage 


CC1  CC7  CCi6 

+  +  + 

(a)  $ MAGIC 

$RUN  GO 

$ INSTRUCTION  STATICS 
$SPECIAL 

(^Report  Form  Input  Deck  for  .USER04.  Instruction 
$END 


(b)  $ MAGIC 

$RUN 

INPUT  TAPE(OLD,1969) 

OUTPUT  TAPE (MAG ,1970) 

$INSTRUCTION  DYNAMICS 
A=DYNAM . ADD . LMASS 
SAVE(MAG)DYNAM,LMASS,A 
$SPECIAL 

Report  Form  Input  Deck  for  .USER04.  Instruction^] 
$END 


SECTION  IV 


MAGIC  CATALOGUED  PROCEDURE 


The  MAGIC  program  can  be  executed  using  a  catalogued 
procedure.  For  example,  if  the  executable  load  module  is 
stored  in  the  technical  library  under  the  program  name 
XY5630,  the  following  catalogued  procedure  can  be  used  for 
initial  implementation. 


//MAGIC 

EXEC 

PGM=XY5630 

//FT01F001 

DD 

UNIT=SYSSQ,DISP=(NEW, DELETE), SPACE=(CYL,( 5,4)) 

//FT02F001 

DD 

DDNAME=INPUT1 

//INPUT1 

DD 

UNIT=SYSSQ, DISP* (NEW, DELETE), SPACE=(CYL,( 5,4)) 

//FT03F001 

DD 

DDNAME=INPUT2 

//INPUT2 

DD 

UNIT=S YSSQ , DISP* ( NEW , DELETE ) , SPACE* ( C YL , ( 5  4 ) ) 

//FT04F001 

DD 

DDNAME=OUTPUT 

//OUTPUT 

DD 

UNIT=SYSSQ , DISP* ( NEW , DELETE ) , SPACE* ( CYL , ( 5 , 4 ) ) 

//FT05F001 

DD 

DDNAME=INPUT 

//FT06F001 

DD 

SYSOUT*A 

//FT07F001 

DD 

SYSOUT*B 

//FT08F001 

DD 

UNITES YSSQ , DISP* ( NEW , DELETE ) , SPACE* ( C YL , ( 5 , 4 ) ) 

//FT09F001 

DD 

UNIT=SYSSQ , DISP* ( NEW , DELETE ) , SPACE* ( C YL , ( 5 , 4 ) ) 

//FT10F001 

DD 

UNIT*SYSSQ , DISP* ( NEW , DELETE ) , SPACE* ( C YL , ( 5 , 4 ) ) 

//FT11F001 

DD 

UNIT=SYSSQ , DISP* ( NEW , DELETE ) , SPACE* ( C YL , ( 5 , 4 ) ) 

//FT12F001 

DD 

UNIT=SYSSQ , DISP* ( NEW , DELETE ) , SPACE* ( C  YL , ( 5 , 4 ) ) 

//FT13F001 

DD 

UNIT=S YSSQ, DISP* ( NEW , DELETE ) , SPACE* ( CYL , ( 5 , 4 ) ) 

//FT14F001 

DD 

UNIT=SYSSQ , DI SP* ( NEW , DELETE ) , SPACE* ( C YL , ( 5 , 4 ) ) 

//FT15F001 

DD 

UNIT=SYSSQ , DIS  F* ( NEW , DELETE ) , SPACE* ( C YL , ( 5 , 4 ) ) 

//FT16F001 

DD 

UNIT=SYSSQ , DISP* ( NEW, DELETE ) , SPACE* ( C YL , ( 5 , 4 ) ) 

//FT17F001 

DD 

UNIT=SYSSQ, DISP* (NEW, DELETE) ,SPACE*(CYL , ( 5 , 4 ) ) 

//SYSABEND 

DD 

SYSOUT*A 

If  the  problem  program  required  any  input  or  output  tapes 
their  definitions  would  be  included  into  the  procedure  by 
overriding  the  DDNAMES,  INPUT1,  INPUT2,  or  OUTPUT.  For  example, 
if  one  input  tape  and  one  output  tape  was  required  then  the 
job  step  that  envoked  the  catalogued  procedure  would  be: 
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//JOB 

//JOBLIB  DD 

DSN*TECHNICL,DISP=SHR 

//GO  EXEC 

MAGIC 

//MAGIC. INPUT1 

DD 

(Tape  definition) 

//MAGIC. OUTPUT 

DD 

(Tape  definition) 

//MAGIC. INPUT 

DD 

» 

j  MAGIC  PROBLEM  DECK 

I 

//* 

//END  JOB 
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SECTION  V 


MAGIC  II 
TEST  RUN  REPORT 


Program  Name 
Date  of  Run 


MAGIC  II 


Report  Number 


Customer  Name 
Location 


Machine  Hours  Used 


Machine  Configuration  (include  peripheral  devices): 


Type  Operating  System  or  Monitor  Used  (version,  etc.): 


(1)  Objective  of  test  run:  (Discuss  the  routines  or 
instructions  tested  and  expected  results.) 


(2)  Test  run  was: 

_  Satisfactory  (go  to  Item  8) 

_  Unsatisfactory  (go  to  Item  3). 

(3)  Check  major  reason  for  unsatisfactory  run: 

_  Program  design 

_  Program  error 

_  Documentation  error 

_  User  error 

_  Machine  failure 

(4)  Estimate  of  failure  significance: 

_  Critical  (preventing  further  progress  -  go  to 

Item  5) 

_  Significant  (can  continue  but  must  be  corrected 

soon  -  go  to  Item  5) 

_  Minor  (go  to  Item  6). 

(5)  Attach  trouble  supplement  sheets  to  provide  a  discussion 
of  run  results. 

(6)  Has  Development  Team  been  notified  of  the  problem  prior 
to  this  report  (i.e.,  during  test  session,  immediately 
after,  etc.)? 

_  No  (go  to  Item  8) 

_  Yes  —  by _ phone; _ memo;  _  both; 

on  _  (go  to  Item  8). 

date 

(7)  What  action  has  been  taken  by  Development  Team? 

(8)  Additional  comments.  If  any: 

Signature  of  Coordinator 
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MAGIC  II  -  TEST  RUN  REPORT 
(Trouble  Supplement  Sheet) 


Program  Name 
Date  of  Run  _ 
Customer  Name 
Location 


MAGIC  II 


Report  Number 


INSTRUCTIONS:  1.  Discuss  run  results,  identify  errors  in 

program  and/or  documentation,  include 
customer’s  comments  or  reactions,  include 
supporting  information  such  as  source 
program,  problem  solution  logic,  memory 
dumps,  copies  of  manual  pages,  etc. 

2.  Attach  numbered  and  completed  trouble 
supplements  to  appropriate  MAGIC  II  TEST 
RUN  REPORT,  page  1.  When  complete,  send 
one  (1)  copy  to  us  and  retain  one  (1) 
copy. 


DISCUSSION: 
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APPENDIX  X 


SUBSYS  CONTROL  DOCUMENTATION 


Table  of  Contents 

Section  Page  No. 
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APPENDIX  X 


SECTION  I 


A.  INTRODUCTION 

The  SUBSYS  package  consists  of  four  subroutines  written 
in  MAP.  The  first  subroutine,  .LOVRY,  is  placed  in  the 
program  deck,  thus  replacing  the  normal  .LOVRY  that  IBSYS 
would  have  provided.  The  function  of  this  altered  .LOVRY 
is  to  receive  control  after  the  program  has  been  loaded  and 
to  then  copy  the  main  link  (LINK  0),  which  is  now  resident 
is  core  storage,  onto  a  specified  tape  unit.  Entry  is  then 
made  into  LNKSTK,  the  second  SUBSYS  subroutine,  which  will 
perform  the  function  of  copying  LINK  0  from  the  tape  written 
by  .LOVRY  onto  another  tape.  Also,  LNKSTK  will  place  the 
overlay  load  file  generated  in  the  IBLDR  phase  and  place  it 
on  the  same  tape  as  LINK  0.  Upon  completion  of  a  LNKSTK 
execution,  the  entire  program  will  be  on  tape  in  absolute 
load  mode  in  two  files;  the  first  containing  LINK  0  and  the 
second  containing  the  overlay  structure.  At  this  point  the 
program  may  now  be  edited  onto  bhe  System  Library  with  the 
aid  of  the  third  SUBSYS  subroutine,  COPYDK,  in  which  case  it 
may  be  invoked  by  a  $ EXECUTE  XXXXXX  card,  or  the  tape  may  be 
saved  in  its  two  file  per  program  form  accessible  by  the 
fourth  SUBSYS  subroutine,  SEARCH.  SEARCH  has  the  capability 
of  locating  any  program  on  a  SUBSYS  generated  program  tape, 
loading  that  program's  LINK  0  into  cord  and  then  transferring 
control  to  it. 

Usage  of  a  SUBSYS  generated  program  tape  is  accomplished 
by  writing  a  FORTRAN  load  program  that  need  contain  only  one 
executable  statement,  CALL  SEARCH  (6HPR0GNM).  This  will 
cause  SEARCH  to  locate  the  program,  read  the  main  link  into 
core  and  execute  the  main  deck.  The  overlay  is  contained  in 
the  next  file  and  the  modified  .LOVRY,  now  resident  in  core 
with  the  main  link,  will  control  the  loading  of  the  overlay 
links.  The  modified  .LOVRY  will  also  substitute  backspace 
file  commands  in  place  of  rewind  selections  on  the  $0RIGIN 
cards  in  order  to  keep  inside  of  the  overlay  file  on  the  SUBSYS 
generated  program  tape. 

A  SUBSYS  generated  program  tape  may  contain  more  than 
one  program,  each  being  identified  and  located  by  the  name 
that  was  assigned  to  it  by  the  User  during  tne  LNKSTK  phase. 
Execution  of  each  program  is  initiated  by  a  call  to  SEARCH 
supplying  the  program  name. 
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FORMAT  II,  with  the  structural  Generative  System 
insertion,  is  contained  on  one  SUBSYS  generated  program 
tape  as  three  separate  programs,  named  AFMTII,  BFMTII  and 
. USER04.,  which  are,  respectively,  the  FORMAT  II  Preprocessor, 
the  FORMAT  II  Execution  Monitor  and  the  Structural  Generative 
System.  Sequence  of  usage  of  the  three  programs  is  indicated 
on  the  following  two  lists,  the  first  reflecting  an  applica¬ 
tion  in  which  the  .USER04.  module  (Structural  Generative 
System)  is  accessed  and  the  second  reflecting  an  application 
in  which  the  .USER04.  module  is  not  accessed. 


B.  EXAMPLES 

1.  .USER04.  Module  Accessed 

The  FORTRAN  load  program  will  cause  the  loading  of  — 

(a)  AFMTII,  which  upon  completion  of  processing 

the  input  will  issue  a  call  to  SEARCH 
to  load  - 

(b)  BFMTII,  which  upon  encountering  the  .USER04. 

instruction  will  issue  a  call  to 
SEARCH,  to  load  - 

(c)  . USER 0 4. , which  upon  completion  of  matrix 

generation  will  issue  a  call  to  SEARCH 
to  load  - 

(d)  BFMTII,  which  upon  completion  of  execution  of 

the  input  abstraction  instructions  will 
call  SEARCH  to  load  - 

(e)  AFMTII,  which  will  begin  processing  the  next 

input  data  deck,  if  any. 


2.  .USER04.  Module  Not  Accessed 

The  FORTRAN  load  program  will  cause  the  loading  of  — 

(a)  AFMTII,  which  upon  completion  of  processing 

the  input  will  issue  a  call  to  SEARCH 
to  load. 
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(b)  BFMTII,  which  upon  completion  of  execution  of 

the  abstraction  instructions  will  call 

SEARCH  to  load  - 

(c)  AFMTII,,  which  will  begin  processing  the  next 

input  data  deck,  if  any, 

. USER04.  and  non-.U3ERQ4.  data  decks  may  be  batched 
together  on  ,a  single  loading  of  the  program. 

Due  to  the  fact  that  FORMAT  II  with  the  Structural 
Generative  System  is  actually  three  separate  programs,  the 
necessary  changes  required  for  Implementation  on  a  given 
system  must  be  made  in  each  program.  The  same  information 
must  be  supplied  to  subroutine  MRES  in  AFMTII  that  was  needed 
for  direct  machine  control.  Main  programs  BFMTII  and  .USER04. 
each  have  a  subroutine  RESET  which  must  re-establish  the  size 
of  blank  common. 

The  sequence  of  operations  to  generate  a  SU5SYS 
program  tape  would  be  as  follows: 


1. 

IBSYS 

start  job 

2. 

IBJOB 

load  AFMTII 

3. 

LNKSTK 

place  AFMTII  on  SUBSYS  program  tape 

4. 

IBJOB 

load  BFMTII 

5. 

LNKSTK 

place  BFMTII  after  AFMTII  on 

SUBSYS  program  tape 

6. 

IBJOB 

load  . USER04. 

7. 

LNKSTK 

place  .USER04.  after  AFMTII  and 
BFMTII  on  SUBSYS  program  tape 

It  is  extremely  helpful,  but  not  necessary,  to  the 
above  procedure  that  LNKSTK  be  placed  into  IBSYS  as  a  sub¬ 
system  prior  to  executing  the  above  procedure.  Further 
examples  are  given  in  Section  II,  SUBSYS  Documentation. 
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SECTION  II 


SUBSYS  DOCUMENTATION 


A.  INTRODUCTION 

The  following  section  consists  almost  wholly  of  infor¬ 
mation  contained  in  the  distributed  documentation  supplied 
by  SHARE  regarding  SUBSYS.  Alterations  have  been  made  to 
enable  one  version  of  SUBSYS  to  be  compatible  on  a  stand 
alone  7090/9^  or  on  a  Direct  Couple  System  70^0/7090  or 

70W7091*. 

Recognition  for  the  bulk  of  the  documentation  is  deserved 
by  Mr.  David  E.  Bluett  of  Westinghouse  Electric  Corporation, 
author  of  the  original  SUBSYS  documentation. 

This  report  describes  a  package  of  programs  which  will 
operate  upon  any  FORTRAN  IV  program  in  such  a  way  as  to 
produce  a  program  tape.  The  programs  may  be  Overlay  or 
non-Overlay,  and  the  program  tape  may  contain  any  number  of 
such  programs.  The  tape  may  then  be  used  as  a  mounted  program 
library  (similar  to  a  CHAIN  tape  in  FORTRAN  II)  or  may  be 
edited  directly  onto  the  system  tape  to  produce  executable 
subsystem(s)  under  IBSYS. 


B.  BACKGROUND 

The  need  for  a  package  such  as  SUBSYS  arose  out  of  a 
desire  to  put  some  high-activity,  high-load-time  Overlay 
codes  somewhere  within  the  framework  of  IBSYS  to  proincreased 
accessibility  and  decreased  load  and  peripneral  times.  An 
attempt  was  first  made  to  insert  a  large  Overlay  code  into 
IBLIB,  with  the  intention  of  still  going  through  IBLDH,  but 
eliminating  the  large  object  deck.  This  method  of  attack 
ran  into  considerable  troubles,  the  greatest  of  which  was  due 
to  the  limited  size  of  the  Subroutine  Name  and  Dependency 
Tables  when  doing  a  Librarian  edit.  It  became  obvious  that 
the  most  desirable  situation  would  be  the  ability  to  say: 

$ EXECUTE  XXXXXX 

thereby  completely  eliminating  the  need  for  input  decks  and 
any  connection  with  IBJOB.  Examination  of  the  IBSYS  manual 
showed  that  a  subsystem  under  IBSYS  should  be  an  absolute 
assembly  and  obey  certain  .rules.  It  seemed  that  a  FORTRAN 
program,  operating  under  IBJOB,  already  obeyed  these  rules 
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more  or  less  by  definition,  since  IBJ0B  is  itself  a  subsystem. 
The  only  problem  seemed  to  be  the  conversion  of  the  FORTRAN 
code  to  an  absolute  assembly  -  a  somewhat  formidable  task. 
However,  it  soon  became  obvious  that  the  main  link  of  an 
Overlay  job  (including  all  the  Library)  was  itself  an  "absolute 
assembly"  once  it  was  loaded,  and  that  the  link  tape,  once 
written,  was  also  in  absolute  scatter-loading  format.  The 
problem  was  now  reduced  to  three  parts:  Cl)  dumping  out  the 
main  link  after  it  was  loaded  by  IBLDR,  (2)  modifying  the 
Overlay  tape  to  correspond  to  proper  subsystem  rules,  and  (3) 
combining  these  two  entities  into  one,  ready  for  editing  onto 
the  system  tape  for  use  as  a  subsystem  under  IBSYS. 

To  solve  part  1,  a  small  program  called  CPYLKO  (copy 
Link  0)  was  written  which  receives  control  immediately  after 
execution  ana  merely  writes  the  main  link  out  on  tape.  For 
convenience,  this  program  has  been  made  part  of  .L0VRY,  which 
also  had  to  be  modified  to  properly  control  the  new  subsystems. 

Parts  2  and  3  were  solved  by  a  separate  program,  LNKSTK 
(Link  Stack),  which  modifies  and  combines  the  main  link  (as 
written  by  CPYLKO)  and  the  Overlay  tape  (as  written  by  IBLDR) 
to  form  a  two-file  program  tape. 

Tests  were  performed,  and  it  was  proved  that  the  output 
tapes  from  LNKSTK  could  be  edited  onto  the  system  tape  and 
successfully  used  as  subsystems  under  IBSYS.  Even  though  these 
subsystems  were  placed  on  the  system  tape  after  IBJ0B  and  50RT , 
lead  time  was  reduced  by  about  a  factor  of  4,  and  peripheral 
time  (for  input)  reduced  to  essentially  zero.  Card  shuffling 
errors  in  binary  decks  (a  large  source  of  lost  runs)  were 
eliminated  as  was  a  large  portion  of  the  total  job  setup  time. 
Since  LNKSTK  has  the  ability  to  pack  all  of  the  record,  execu¬ 
tion  time  was  usually  improved,  except  in  the  cases  of  excess¬ 
ive  link  tape  rewinding  (.L0VRY  now  must  do  a  "backspace  file" 
instead  of  a  "rewind"). 

Once  this  part  of  the  package  was  operational,  it  was 
realized  that  the  program  tapes  produced  by  LNKSTK  could  be 
mounted  and  operate  just  as  well  by  themselves  as  they  did  as 
subsystems  on  the  system  tape.  Since  more  than  one  complete 
program  may  reside  on  the  program  tape,  all  that  was  needed  was 
a  small  loading  routine  to  perform  the  functions  of  SYSLDR,  with 
the  added  feature  of  program  selection.  To  provide  this  func¬ 
tion,  the  SEARCH  routine  was  written,  and,  in  addition  to  sub¬ 
system  generation,  the  SUBSYS  package  now  provided  the  long- 
sought  solution  to  the  saving  of  Overlay  tapes.  It  should  be 
noted  that  the  ability  to  save  Overlay  tapes  came  about  essent¬ 
ially  as  a  by-product  of  the  process  for  subsystem  generation. 


506 


C.  INSTRUCTIONS  FOR  USE  AND  DETAILS  ON  THE  SUBSYS  PACKAGE 

As  sum-,  that  a  User  wishes  to  make  a  program  tape  from  an 
existing  FORTRAN  IV  Overlay  program.  Whether  this  tape  will 
later  be  edited  over  as  a  subsystem  or  merely  used  as  a  "chain" 
tape  is  immaterial,  since  the  technique  for  making  the  tape 
is  the  same  in  either  case. 

The  special  deck  for  .L0VRY  (with  CFYLKO)  is  inserted 
somewhere  in  the  main  link  of  the  program,  and  the  job  is  sub¬ 
mitted  for  running  in  the  following  way: 

(1)  Any  desired  combination  of  ^ATTACH  or  ^SWITCH  cards 
if  needed. 

(?)  G0  (and  any  other  options  desired  or  needed)  on  the 
$IBJ0B  card. 

(3)  Only  one  link  tape  specified  on  the  $0RIGIN  cards. 

(4)  The  normal  $ ENTRY  card  (if  any). 

(5)  No  data  (an  end-of-file  should  immediately  follow 
the  $DATA  card). 

The  program  will  load  (the  Overlay  tape  being  written 
where  directed  by  the  $0RIGIN  cards)  and  execute  by  transfer¬ 
ring  to  the  pre-execution  initialization  section  ( PREEX ) .  The 
first  instruction  in  PREEX  is  TSX  SYSIDR,  4,  but  a  TTR  to 
CPYLKO  has  been  origined  at  SYSIDR  in  the  IBSYS  nucleus.  The 
CPYLKO  section  of  .L0VRY  is  thus  entered  Immediately  via  SYSIDR. 

The  main  link  will  now  be  written  out  as  one  big  record 
on  SYSCK2,  If  3YSCK2  is  already  the  Overlay  link  tape,  the 
output  tape  must  be  changed  by  altering  an  assembly  parameter 
in  CPYLKO.  The  size  of  the  main  link  depends,  of  course  on 
the  last  location  used  by  this  link,  and  this  location  is  cal¬ 
culated  in  CPYLKO.  The  main  link  will  be  written  from  SYSL0C 
through  this  last  word,  preceded  by  a  few  communication  and 
pointer  words,  and  followed  by  an  end-of-file.  The  output  tape 
from  CPYLKO  is  left  un- rewound,  and  control  returns  to  IBSYS 
via  SYSRET.  The  cell  SYSIDR  in  the  nucleus  has  been  altered 
by  CPYLKO,  so  the  next  two  cards  in  the  deck  (and  the  last  two 
of  this  first  phase  of  the  job)  must  be: 

$ IBSYS 

$REST0RE 

The  next  phase  of  the  process  is  the  combination  of  the 
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output  tape  from  CPYLKO  with  the  Overlay  tape  to  form  the 
final  program  tape.  This  combination  is  made  by  the  Link 
Stack  program,  which  will  normally  be  the  next  ,job  on  the 
input  tape.  It  is  strongly  suggested  that  LNKSTK  (Link 
Stack)  itself  be  made  a  subsystem  under  IBSYS,  since  this 
greatly  simplifies  the  deck  setup  and  eliminates  the  need 
for  protecting  the  Overlay  tape  during  the  loading  of  LNKSTK. 
Instructions  for  making  LNKSTK  a  subsystem  are  included  as 
Appendix  VIII,  and  this  description  will  proceed  on  the 
assumption  that  this  has  been  done. 

After  the  ^RESTORE  card,  the  cards  are  as  follows: 

$J0B 

$ EXECUTE  LNKSTK 

(LNKSTK  data  card,  giving  name,  tapes,  and 
options ) 

End-of-Pile  card 

Next  may  come  either  a  return  to  the  monitor 
for  signing  off,  a  system  tape  edit,  or  a  test 
run  on  the  new  program  tape  using  the  SEARCH 
routine. 

Once  LNKSTK  is  loaded,  it  will  read  its  data  card  con¬ 
taining  the  program  name  and  the  tape  information  required 
(the  data  card  format  is  detailed  in  Appendix  VII),  and  perform 
the  .following  operations: 

1.  Rewind  all  pertinent  units  and  read  the  main  link 
as  written  by  CPYLKO. 

2.  Modify  this  link  into  proper  scatter-loading  format 
and  write  it  as  one  record  on  the  specified  output 
tape,  followed  by  an  end-of-file. 

3.  Read  the  Overlay  tape,  modifying  the  link  records 
appropriately. 

4.  Write  the  modified  links  on  the  specified  output  tape, 
followed  by  an  end-of-file. 

5.  Print  a  map  showing  input  and  output  record  counts, 
word  counts ,  etc . 

6.  Rewind  all  pertinent  units  and  exit. 
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The  program  tape  is  written  and  ready  for  use.  I«t  may  be 
edited  onto  the  system  tape,  loaded  by  means  of  the  SEARCH  pro¬ 
gram  or  dismounted  for  later  use. 

As  a  summary  by  way  of  example,  assume  that  it  is  desired 
to  make  a  program  tape  from  a  FORTRAN  IV  Overlay  code  called 
TSTJ0B,  edit  this  onto  the  system  tape  immediately  following 
IBJ0B,  and  then  run  a  sample  case.  The  deck  set-up  would  be  as 
follows : 

1  8  16 

ilBSYS 

$J0B 

SEXECUTE  IBJ0B 

GIBJ0B  jobnam  G0,MAP,  etc. 

-f.IBLDR  DECK1 

(start  of  decks  for  main  link  of  program  "TSTJ0B" 

Compiles  and/or  assemblies  may  be  done  in  this  run). 


$IBLDR  .L0VRY 

(special  deck  of  .L0VRY  with  CFYLKO  included  somewhere 
in  main  link) . 


$0RIGIN  (start  of  link  1) 


(remainder  of  program) 


($ENTRY  card  if  normally  included) 
$DATA 


End-of-file  card 

$IBSYS 

iREST0RE 

3>J0B 

$EXECUTE  LNKSTK 

(Link  Stack  data  card,  explained  in  Appendix  VII) 
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End-of-file  card 

t>IBSY3 

f-TBEDT 

'  EDIT 
x  PLACE 
' REMARK 
'<  REMARK 
FILE  -AFTER 
< REMARK 
<DUP 
REMARK 

End-of-file  card 
.f-IBDYS 
# PAUSE 


• 

..’I  BUYS 

TSTJOB  MAY  NOW  BE  USED  AS  A  SUBSYSTEM 
•t  EXECUTE  TSTJ0B 

(sample  data  deck  for  TSTJ0B) 

End-of-file  card 

Obviously,  any  number  of  subsystems  may  be  DUPed  on  in 
one  edit,  providing  the  proper  *  PLACE,  * AFTER,  and  XDUP  cards 
are  used.  In  the  IBSYS  edit,  the  unit  SYSxxx  will  be  the 
LNKSTK  output  tape,  which  is  one  of  the  data  card  parameters. 

As  an  alternate  possibility,  assume  the  activity  of  T3TJ0B 
is  not  sufficiently  high  to  warrant  it  inclusion  as  a  subsystem, 
but  that  the  load  time  is  high  enough  to  allow  significant 
savings  from  the  use  of  a  program  tape.  The  user  therefore 
desires  to  make  a  program  tape  to  be  mounted  on  SYSLB2.  It 
should  be  noted  that  program  tapes  produced  by  LNKSTK  can  only 
be  mounted  on  one  drive  due  to  the  changed  structure  of  .L0VRY. 
In  other  words,  if  the  program  tape  for  T3TJ0B  is  made  to  run 
on  B5,  then  it  must  always  run  on  B5.  This  so-called  "running 
link  tape"  is  one  of  the  parameters  on  the  LNKSTK  data  card  and 
must  be  SYSLB2  for  this  version  of  SUBSYS.  The  following  ex¬ 
ample  illustrates  the  use  of  the  SEARCH  routine  in  conjunction 
with  a  program  tape.  The  deck  set-up  is  exactly  the  same  as 
before,  up  through  and  including  the  EOF  after  the  LNKSTK  data 
card.  The  last  three  identical  cards  will  be  re-listed  for 
continuity. 

18  l6 

$ EXECUTE  LNKSTK 


MAP,M0DS 
TSTJ0B  212 

N0W  IN’ NAME  TABLE  AS  2ND  SUBSYSTEM,  2  FILES 

P0SITI0N  TAPE  AFTER  IBJ0B 

IBJ0B 

DUP  IN  TSTJ0B  FR0M  SYSxxx 
SYSxxx, SYSUT1, 2 
ALL  D0NE 


SET  UP  NEW  SYSTEM  TAPE,  etc. 
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('Link  Stack  data  card) 


End-of-file  card 

.f.  EXECUTE  IBJ0B 

•ilBJ0B  G0,MAP 

.fl.BFTC  CALL 
C 

CALL  SEARCH  (6HTSTJ0B) 
r 

ST0P 

END 

•t»DATA 

(Sample  data  deck  for  TSTJ0B) 

End-of-file  card 

This  example  assumes  that  SEARCH  has  been  placed  on  the 
JB.J0B  library  (IBLIB).  If  this  is  not  the  case,  the  binary 
deck  for  SEARCH  would  follow  the  END  card  of  the  FORTRAN  pro¬ 
gram  above.  Note  that  the  calling  sequence  to  SEARCH  is 
similar  to  that  used  for  CHAIN  in  FORTRAN  II,  except  vhat  the 
tape  to  be  searched  is  omitted  since  it  is  assumed  to  be  SYSLB2. 

Search  finds  the  specified  program  on  SYSLB2  by  name  and 
scatter-loads  it  right  on  top  of  itself,  leaving  only  enough 
to  execute  a  transfer  to  SYSTRA  which  will  commence  execution 
of  the  desired  program.  The  time  saved  when  running  with  a 
mounted  program  tape  and  using  SEARCH  is  obviously  most  depend¬ 
ent  on  the  time  used  to  hang  the  tape.  The  time  taken  to  load 
SEARCH  and  its  calling  routine  and  to  find  and  load  th"1  program 
is  usually  no  more  than  .004  hours. 

D.  SUMMARY 

The  3UBSYS  package  consisting  of  .L0VRY  with  CPYLKO, 

LNKSTK,  arid  SEARCH  can  provide  considerable  savings  in  setup, 
peripheral,  and  main-frame  time  when  used  with  7090,  7094, 

7094/2  FORTRAN  IV  Overlay  and  non-Overlay  codes. 

Since  no  modifications  are  involved  to  IBSYS  or  IBJ0B, 
SUBSYS  should  be  more  "version  independent"  than  other  packages 
available  which  do  involve  system  mods.  SUBSYS  has  been  tested 
on  both  version  12  and  version  13  installations.  This  is  a 
tape-oriented  package,  and  its  value  to  a  disk-oriented  user 
is  questionable.  It  is  left  to  the  disk  user  to  make  such  an 
evaluation. 
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SECTION  III 


DETAILS  ON  LNKSTK 


A .  INTRODUCTION 

The  information  needed  by  LNKSTK  to  produce  a  program  tape 
is  supplied  by  two  sources:  the  communication  words  passed  on 
by  CPYLKO,  and  the  LNKSTK  data  card.  The  communication  words 
are  obtained  by  LNKSTK  when  it  reads  the  main  link  from  tape, 
and  are  described  in  Appendix  IX. 

B.  LNKSTK  DATA  CARD  FORMAT 

Field  Columns  Contents 

1  1-6  The  program  name  as  it  will  appear  in 

the  first  record  of  the  program  and  on 
the  ^EXECUTE  card  or  SEARCH  argument. 

The  name  must  be  BCD,  6  character  max., 
left  adjusted  in  the  field  with  trailing 
blanks  if  less  than  6  characters.  If 
this  program  is  to  become  a  subsystem, 
the  name  must  be  different  from  any 
other  system  record  name; 

2  8-13  Input  tape  on  which  LNKSTK  may  expect  to 

find  the  main  link  as  written  by  CPYLKO. 
This  unit  must  be  specified  as  SYSxxx, 
and  would  be  SYSCK2  if  running  with  the 
distributed  version  of  CPYLKO  which  uses 
SYSCK2  for  its  output. 

3  15  -20  Input  tape  containing  the  Overlay  links 

as  written  by  IBLDR.  This  unit,  which 
must  also  be  specified  by  its  SYSUNI 
name,  is  the  tape  presently  containing 
the  Overlay  links,  regardless  of  what 
SYSUNI  it  may  have  been  (due  to  $ATTACH 
and  $SWITCH  cards)  when  the  program  was 
loaded.  If  this  is  not  an  Overlay  job, 
the  word  "N0LINK"  must  be  inserted  in 
this  field. 

4  22-27  This  field  is  another  SYSUNI  name  which 

specifies  the  "running  link  tape",  or 
the  unit  on  which  the  program  tape  must 
be  mounted  when  running  with  the  SEARCH 
program  and  must  be  SYSLB2  for  the  dis¬ 
tributed  version  of  LNKSTK  and  SEARCH. 


512 


Field 


Columns 


Contents 


4l  -  45 
(if  Field 
6  was 
present) 


If  this  is  not  an  Overlay  job.  the  word 
"N0LINK"  may  be  inserted  in  this  field. 
Output  tape  for  LNKSTK,  also  a  SYSUNI 
name.  This  name  may  be  the  same  as  that 
in  Field  2 ,  but  may  not  be  the  same  as 
the  Overlay  link  tape  in  Field  3.  It 
may  be,  but  is  not  necessarily  the  same 
as  the  "running  link  tape"  in  Field  4. 

If  the  record  packing  option  is  desired, 
this  field  should  contain  the  word 
"PACK".  If  PACK  is  specified,  all 
records  for  each  Overlay  link  (written 
as  464  words  by  IBLDR)  will  be  combined 
to  form  one  long  record.  The  .LRECT 
table  generated  by  the  loader  is  modif¬ 
ied  by  LNKSTK  to  reflect  the  new  posi¬ 
tions  of  the  links  on  tape.  So  called 
"remote  sections"  specif ied  by  ^INCLUDE 
cards  cannot  be  handled  by  LNKSTK*.  This 
feature  means  that  considerably  less  tape 
is  used  for  the  link  section  of  the  pro¬ 
gram,  due  to  fewer  record  gaps.  Link 
loading  is  considerably  faster,  usually 
resulting  in  an  overall  improvement  in 
execution  time.  If  this  option  is  not 
specified,  the  records  produced  will  be 
4o5  words,  a  BCD  name  being  added  to  each 
record  (standard  system  record  format). 
This  option  is  meaningless  for  a  ncn- 
Overlay  job. 

Rewind  options  applying  to  the  LNKSTK 
output  tape.  Either  RB  and/or  RA,  in 
either  order,  may  occupy  this  field,  or 
the  field  may  be  null. 


*  See  Version  13  IBJ0B  manual,  C28-6389-O,  page  43. 


Field 


Columns 


Contents 


7  36  -  40  To  permit  the  stacking  of  more  than 

(if  Field  one  program  on  the  output  tape,  the 

6  was  rewinds  are  strictly  controlled  by 

absent)  these  options.  If  RB  (rewind  before 
writing  this  program)  is  specified, 
LNKSTK  will  perform  a  rewind  on  the 

output  tape  immediately  before  it 

attempts  to  write  the  modified  main 

link.  If  RA  (rewind  after  writing  this 
program)  is  specified,  LNKSTK  will 
finish  writing  the  last  Overlay  link, 
write  an  E0F,  and  write  a  3  word 
trailer  record  containing  the  word 
"ENDTPE" .  It  will  then  rewind  the 
output  tape.  This  trailer  record  will 
cause  the  word  ENDTPE,  to  scatter-load 
into  SYSFAZ,  enabling  the  SEARCH  rou¬ 
tine  to  recognize  the  end  of  the  pro¬ 
gram  tape.  RB  must  be  specified  for 
the  first  (or  only)  program  to  be  put 
on  the  output  tape,  while  RA  must  be 
specified  for  the  last  (or  only)  pro¬ 
gram.  If  more  than  two  programs  are 
to  be  stacked  on  the  output  tape,  any 
"middle"  programs  would  have  neither 
option  specified  to  insure  that 
no  rewinds  are  performed. 

All  fields  are  separated  by  commas  (or  any  other  non-blank 
delimiter).  The  remainder  of  the  card  after  col.  45  is  availa¬ 
ble  for  comments.  Fields  1-5  must  be  present  in  the  columns 
assigned,  while  the  last  two  fields  are  optional. 

C .  EXAMPLES 

col.  1 
* 

TSTJ0B, SYSCK2, SYSUT2, SYSLB2, SYSUT5, PACK, RB, RA 
SIFT  , SYSCK2, SYSLB3, SYSLB2, SYSCK2, PACK 
SMAUB,  SYSCK2 ,  N0LINK ,  N0LINK,  SYSLB2,  RB 
BIGJ0B, SYSUT3, SYSCK2, SYSLB2, SYSUT7,  PACK,RA 

The  setup  for  stacking  more  than  one  program  on  the  out¬ 
put  tape  is  merely  an  extension  of  the  case  for  one  program. 

The  order  of  jobs  in  the  deck  would  be  similar  to  the  follow¬ 
ing: 
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First  Program 

LNKSTK  run  (with  RB  on  the  data  card) 
Second  Program 

LNKSTK  run  (with  no  rewind  options) 


nth  Program) 

nth  LNKSTK  run,  no  rewinds) 


Last  Program 

LNKSTK  run  (with  RA  on  the  data  card) 

The  output  tape  would,  of  course,  be  the  same  on  all 
these  LNKSTK  data  cards,  while  the  other  options  may  be  as 
desired.  Overlay  and  non- Overlay  programs  may  be  stacked  on 
the  same  tape.  A  double  E0F  will  follow  a  non-Overlay  pro¬ 
gram,  so  that  each  program  will  be  2  files  for  the  SEARCH 
routine  (see  Appendix  X).  If  the  system  rewinds  the  LNKSTK 
output  tape  between  jobs  or  job  segments,  these  rewinds  must 
be  circumvented  if  more  than  one  program  is  to  be  stacked  on 
a  given  output  tape . 

In  addition  to  writing  the  main  link  in  scatter-load 
format,  LNKSTK  provides  entries  for  the  following  communica¬ 
tion  cells: 

1.  Location  2  -  TTR  .LXSTR 

2.  Location  10g  -  TTR  .FPTRP 

3.  Location  230g*  -  A  corrected  skew-check  mask. 

4.  SYSTRA  -  TTR  PREEX  (start  of  pre-execution 

initializ  at i on ) 

5.  SYSGET  -  "IBSXEC" 

6 .  SYSFAZ  -  program  name  from  data  card 

*  A  "feature"  has  been  added  in  IBSYS  Version  13  such  that 
any  I0CP  with  a  word  count  greater  than  37777g  which  enters 
SYSTCH  causes  the  record  to  be  treated  as  if  it  were  re¬ 
dundant.  Entry  3  above  corrects  this,  but  is  only  done  if 
LNKSTK  is  assembled  for  Version  13.  See  "Assembly  Para¬ 
meters"  . 
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7. 

SYSL0C 

zero 

8. 

. JLIN  (line  ctr.) 

zero 

9- 

SYSCUR 

-  name  of  each  record  (main  or  Overlay 

as  it  is  loaded 


The  program  name  enters  SYSFAZ  and  SYSCUR  when  the  main 
link  is  loaded,  and  the  name  remains  in  SYSFAZ  throughout  the 
run.  Each  link  record  stores  its  name  in  SYSCUR  as  it  is 
loaded,  so  that  the  contents  of  SYSCUR  will  always  represent 
the  last  record  read. 

The  link  record  name  is  a  combination  of  the  program  name 
and  the  link  number  if  record  packing  is  in  effect,  or  the  pro¬ 
gram  name,  link  number,  and  record  number  if  packing  is  not  in 
effect. 

Examples  from  "T3TJ0B" : 

Packing:  TSTJ04  (Link  4) 

No  Packing:  TST721  (Link  7,  Record  21) 

All  the  link  and  record  numbers  will  be  BCD.  The  link 
will  occupy  2  characters  if  it  bec-.mes  greater  than  9. 

D.  ASSEMBLY  PARAMETERS 

1.  VRSION  -  assembled  as  13  by  a  "SET15.  Pertains  to 
the  existence  of  SYSUT5-SYSUT9  and  to  skew-mask 
correction.  See  Appendix  X,  since  the  same  para¬ 
meter  is  contained  in  SEARCH  to  control  1-0  table 
assembly. 

2.  UNIT  -  assembled  as  SYSCK2.  This  is  the  output 
unit  on  which  LNKSTK  will  dump  itself  if  entered  by 

a  $ENTRY  CPYLNK  card.  It  must  therefore- be  specified 
as  the  input  unit  on  the  LNKSTK  data  card  when  pro¬ 
ducing  a  program  tape  from  LNKSTK  itself  (see 
Appendix  VIII) . 

E.  ERROR  MESSAGES 

If  any  error  is  detected  during  a  LNKSTK  run,  a  message: 

ERR0R  IN  LINK  STACK  AT  RELATIVE  L0C  XXXXX  0CTAL  (SEE  LISTING). 
CANN0T  PR0CEED.  is  printed  off-rline.  Examination  of  the 
comments  on  the  listing  will  reveal  the  nature  of  the  error. 

The  message: 

ERROR  IN  LINK  STACK.  FLUSH  ANY  REMAINING  PARTS  0F  THIS 

J0B  HIT  START  T0  DUMP 

0PERAT0R  ACTI0N  PAUSE 

is  printed  on-line.  Depressing  the  START  key  will  cause  a  core 
dump  via  SYSDMP  (AC,  MQ,  etc.  are  saved),  but  the  operator  Is 
responsible  for  flushing  the  rest  of  the  run. 
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F.  DUMP  FEATURE 

If  User  modifications  are  made  to  LNKSTK,  or  if  there 
seems  to  he  trouble  during  a  LNKSTK  run,  it  may  be  desirable 
to  obtain  a  core  dump  immediately  after  LNKSTK  is  through 
with  its  processing.  To  provide  this  facilit"  ,  a  feature  has 
been  added  to  LNKSTK  such  that  the  console  entry  Keys  are 
examined  before  LNKSTK  returns  to  IBSYS  via  SYSRET.  If  any 
prefix  key  (S,  1,  or  2)  or  any  combination  of  prefix  keys  is 
down,  LNKSTK  will  exit  via  SYSDMP  rather  than  via  SYSRET. 

The  operator  must,  of  course,  be  informed  that  the  key(s) 
are  to  be  set  before  the  termination  of  the  LNKSTK  run. 

G.  RESTRICTIONS 

The  fact  that  LNKSTK  cannot  handle  ''remote"  sections 
specified  on  $INCLUDE  cards  has  already  been  mentioned,  as 
has  the  fact  that  only  one  link  tape  may  be  called  for  on  the 
^ORIGIN  cards. 

Other  problems  may  arise  from  certain  record  size  limita¬ 
tions  are  imposed  by  3UBSYS  and  the  systems  which  it  must  use. 
LNKSTK  has  a  buffer  size  of  28000^Q  words  (66540g),  and  this 

represents  the  maximum  size  of  any  link  record  (the  main  link 
would  usually  be  the  largest  record,  since  it  contains  all 
the  library  routines  and  possibly  some  named  C0MM0N ) .  When 
running  strictly  from  a  program  tape,  the  SEARCH  routine  can 
load  a  record  in  excess  of  the  LNKSTK  maximum  (actually  2824610 
or  671260) .  However,  things  are  not  so  simple  when  using  the 
system  editor.  At  the  time  of  this  writing,  no  documentation 
of  any  record  size  limitation  has  been  found  in  either  the 
coding  for  EDIT0R  or  the  IBSYS  manual,  but  examination  of  the 
actual  1-0  command  in  EDITOR  shows  the  following  limits: 

IBSYS  Ver.  12  (EDITOR  Ver. 5)  -  2460710  or  60037o 
IBSYS  Ver.  13  (EDITOR  Ver. 6)  -  23840^  or  56440g 

Analysis  of  a  L0GIC  or  MAP  will  show  whether  a  program  is 
within  these  limits.  Insertion  of  one  or  two  redundant  $0RIGIN 
cards  in  the  main  link  is  usually  all  that  is  needed  to  bring 
the  program  back  into  line  with  LNKSTK  and  EDIT0R, 

In  IBSYS  Ver.  13,  SYSLDR  has  been  changed  to  check  for 
skew-errors  by  insisting  that  no  bits  enter  b't  position  3,  19, 
and  20  of  any  scatter  load  I0CP.  This  has  been  corrected  by 
the  skew-mask  described  previously,  which  effectively  allows 
SYSLDR  to  load  a  record  of  any  size.  Regardless  of  the  method 
used,  the  practical  size  limit  is  still  SYSENB-SYS0RG. 
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SECTION  IV 


LNKSTK  AS  AN  EXECUTABLE  SUBSYSTEM 


A.  INTRODUCTION 

If  LNKSTK  is  loaded  from  a  binary  deck,  not  only  is  the 
deck  setup  for  making  a  program  tape  somewhat  more  complicated, 
but  certain  SYSUTx  file 3  (which  might  contain  the  Overlay 
links)  must  be  protected  during  the  loading  of  LNKSTK.  The 
ideal  situation  is  to  have  LNKSTK  reside  on  the  system  tape  as 
an  executable  subsystem.  This  adds  no  appreciable  "bulk"  to 
the  system  tape,  since  LNKSTK  is  only  one  file,  consisting  of 
one  2200  word  record,  and  the  deck  setup  of: 

$J0B 

^EXECUTE  LNKSTK 
(LNKSTK  data  card) 

is  certainly  as  compact  and  simple  as  could  be  desired. 

B.  INSTRUCTIONS  FOR  MAKING  LNKSTK  ITSELF  A  SUBSYSTEM 

LNKSTK  has  its  own  built-in  equivalent  of  CFYLKO,  called 
f'PYLNK,  which  may  be  entered  in  the  case  where  it  is  desired  to 
have  LNKSTK  operate  on  itself.  Since  this  entry  is  not  the 
general  case,  it  is  not  made  automatically  as  it  is  in  the 
CPYLKO  section  of  . L0VRY ,  but  must  be  made  by  a  $ ENTRY  card. 

The  deck  setup  to  make  a  program  tape  from  LNKSTK  itself  and 
edit  it  over  to  the  system  tape  immediately  after  IBJ0B  is  as 
follows : 

1  8  16 

f>IBSYS 
■f>  J  0B 

.'{•.EXECUTE  IBJ0B 

<f>IBJ0B  G0,MAP 

•tl3LDR  LNKSTK 

(LNKSTK  binary  deck) 

•tDKEND  LNKSTK 

•t.  ENTRY  CFYLNK 

SDATA 
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1  8 

data  card:  LNKSTK ,SYSCK2,N0LINK. N0LINK,SY3CK2,RB,RA 

End-of-file  card 
$IB3Y3 
.tJ0B 
.f-IBEDT 

*  EDIT  MAP,M0DS 

x PLACE  LNKSTK,! ,1,2 
FILE  x AFTER  IBJ0B 

XDUP  SYSCK2,3YSUT1,1 

End-of-file  card 
•fJ.BSYS 

In  this  example,  the  $ENTRY  card  will  cause  LNKSTK  to 
write  itself  out  on  SYSCK2  (this  tape  is  an  assembly  parameter 
in  LNKSTK)  before  transferring  to  its  normal  entry.  It  will 
then  read  its  data  card  and  proceed  as  it  would  on  any  non- 
Overlay  job.  Note  the  following  on  the  data  card: 

1.  The  program  name  is  specified  as  LNKSTK  (similarly  on 
the  XPLACE  card),  and  this  is  the  name  that  must  be 
specified  on  the  $EXECUTE  card  when  using  the  sub¬ 
system. 

2.  The  input  tape  for  the  main  (and  only)  link  is  specif¬ 
ied  as  3YSCK2. 

3.  The  N0LINK  feature  is  specified  in  place  of  the  normal 
link  tape  designations,  signifying  that  this  is  not  an 
Overlay  job. 

4.  SYSCK2  is  also  used  for  the  output  tape,  illustrating 
the  fact  that  the  output  tape  for  LNKSTK  may  be  the 
same  as  the  main  link  onput  tape. 

5.  The  PACK  option  is  not  specified,  since  this  would  be 
meaningless  for  a  non-Overlay  job. 

6.  Since  this  is  the  only  program  to  be  put  on  the  output 
tape,  both  the  RB  (rewind  before)  and  PA  (rewind  after) 

The  new  system  tape,  containing  LNKSTK  as  the  2nd  subsystem 
under  IBSYS,  will  be  produced  on  whatever  unit  is  -attached  as 
SYSUT1 . 
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SECTION  V 


DESCRIPTION  OF  THE  MODIFIED  .L0VRY  WITH  CPYLKO 


The  standard  IBM  routine  .L0VRY,  whose  function  is  the 
loading  of  Overlay  links,  has  been  somewhat  modified  for  use 
with  the  SUBSYS  package.  The  largest  change,  of  course,  is 
the  addition  of  the  CPYLKO  routine,  which  is  discussed  else¬ 
where  in  this  write-up.  Other  changes  are  as  follows: 

1.  The  table  of  legal  link  tapes  (UNITAB)  has  been 
reduced  to  one  location,  since  now  only  one  link 
tape  is  used,  whether  running  as  a  subsystem  or 
as  a  program  tape.  All  general  references  to 
UNITAB  (as  a  table)  have  been  removed,  and  the 
UNITAB  index  in  the  .LRECT  table  is  no  longer 
examined.  Tne  single  UNITAB  cell  in  .L0VRY  is 
now  set  by  LNKSTK  during  its  processing  of  the 
main  link,  the  desired  "running"  link  tape  being 
specified  on  the  LNKSTK  data  card.  Since  only 
one  link  tape  may  now  be  used,  certain  codes  which 
have  an  extremely  high  activity  of  link  loading 
and  link  tape  rewinding  may  run  considerably  longer 
under  this  system,  possibly  enough  to  negate  its 
worth.  This  is  something  that  is  best  determined 
empirically. 

2.  All  disk  and  hypertape  coding  has  been  removed  for 
simplicity,  since  SUBSYS  is  a  tape  oriented  package. 

3.  The  IBSYS  Version  13  Mod.  which  adds  the  skew  error 
check  is  not  included,  since  this  has  not  proved 

to  be  troublesome  in  our  installation.  It  may  easily 
be  inserted  by  the  User  if  desired. 

4.  The  subsystem  (or  program  tapes)  are  now  two  files, 
the  main  link  being  one,  and  the  Overlay  links  the 
second.  .L0VRY  must  then  skip  over  the  E0F  after 
the  main  link  on  the  first  entry  and  after  each  BSF. 
BSF’s  now  replace  rewinds  when  a  rewind  is  requested 
by  REW  on  the  $0RIGIN  caTd. 
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5.  If  the  PACK  option  is  specified  on  the  LNKSTK 
data  card,  all  records  for  one  Overlay  link  will 
be  packed  into. one  long  record,  thereby  reducing 
the  length  of  tape  needed  for  the  program  and 
shortening  the  time  for  link  loading.  However, 
the  .LRECT  table  produced  by  the  loader  will  no 
longer  reflect  the  correct  record  counts  and  tape 
positions  for  each  link.  This  table  is  automatical¬ 
ly  modified  in  LNKSTK  to  reflect  the  true  "one 
record  per  link"  status  of  the  link  file  on  the 
tape.  No  change  to  .L0VRY  is  involved  here. 

Aside  from  these  changes,  .L0VRY  is  essentially  the 
same.  The  number  of  words  removed  is  about  the  same  as  the 
number  of  words  added  by  the  addition  of  CPYLKO.  In  the 
process  of  writing  the  main  link  from  SYSLOC  through  its 
last  word,  CPYLKO  also  passes  on  to  LNKSTK: 

1.  Tile  address  of  PREEX 

2.  The  addresses  of  .LXSTR  and  .FPTRP 

3.  The  address  and  length  of  the  .LRECT  table. 

4.  The  address  of  UNITAB  in  . L0VRY . 

All  other  information  needed  by  LNKSTK  is  present  on  the 
data  card. 

The  length  of  the  main  link  is  calculated  at  execution 
time  in  CPYLKO.  A  search  is  performed  from  SYSEND-1000  back¬ 
ward  (towards  location  0),  looking  for  the  ilrst  word  that 
is  not  an  STR  0,,0.  This  is  assumed  to  be  the  last  word  of 
the  main  link.  This  is  reliable  as  long  as  IBLDR  performs 
as  it  is  supposed  to  in  its  final  section,  and  this  method 
is  certainly  preferable  to  using  an  assembly  parameter  as 
was  formerly  done. 

The  standard  error  message  in  .L0VRY  is  written  on  first 
entry  if  the  UCB's  for  the  unit  specified  in  UNITAB  and  SYSLB1 
show  both  these  units  at  load  point. 
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SECTION  VI 


DESCRIPTION  OP  THE  SEARCH  ROUTINE 


A.  INTRODUCTION 

The  general  function  of  the  SEARCH  routine  has  been 
described  earlier  in  this  manual.  The  scatter-load  and 
redundancy-checking  routine  is  origined  at  72000g  to  prevent 

it  from  being  destroyed  as  a  large  main  link  is  scatterload¬ 
ing  in.  The  initialization  and  table  sections  of  the  program 
will  be  destroyed  in  this  process,  since  they  are  needed  only 
once.  The  search  for  the  program  is  dependent  on  the  BCD  name 
supplied  in  the  calling  sequence.  The  program  name  from  tape 
will  be  scatter-loaded  into  SYSFAZ.  When  SYSFAZ  becomes 
non-zero,  SEARCH  compares  its  contents  with  the  name  from 
the  CALL.  If  they  are  the  same,  the  scatter-load  is  allowed 
to  continue,  and,  if  not  redundant,  control  then  passes  to 
the  main  link  via  SYSTRA.  If  the  names  are  not  the  same, 
the  scatter-load  is  immediately  terminated  and  2  files  are 
skipped.  The  process  is  then  repeated  until  either  the 
program  is  found  or  the  word  '’ENDTPE1'  enters  SYSFAZ,  signify¬ 
ing  the  end  of  the  tape.  If  this  trailer  label  is  encountered, 
an  error  message  is  printed  and  the  program  exits  via  SYSDMP. 

B.  CALLING  SEQUENCE 

In  FORTRAN  or  MAP:  CALL  SEARCH  (Argl) 

where  Argl  is  the  program  name  as  6}ixxxxxx 

It  is  strongly  suggested  that  SEARCH  be  edited  onto  the 
IBJ0B  library  as  soon  as  it  has  been  reassembled  for  the 
particular  installation. 
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C .  ASSEMBLY  PARAMETERS 

1.  VRSI0N  is  assembled  as  13  by  a  "SET",  and  represents 
the  version  of  IBSYS  in  use.  It  pertains  only  to 
the  existence  of  SYSUT5  -  SYSUT9  and  is  used  with 
IFT's  and  IFF's  to  control  the  assembly  of  the  1-0 
tables. 

2.  BCDTAB  -  table  of  bCD  SYSUNI  names. 

3.  SYSTAB  -  table  of  SYSUNI  indices. 

4.  RD3TAB  -  tables  of  read  selects. 

All  of  these  1-0  tables  must  be  examined  and  made 
to  conform  to  the  installation  1-0  configuration. 

D.  ERROR  MESSAGES 

Due  to  a  number  of  possible  causes  such  as  illegal  tape 
designation,  the  word  "ENDTPE"  entering  SYSFAZ,  etc,,  the 
message : 


PROGRAM  'XXXXXX'  IS  NOT  ON  SYSLB2  .  .  .  SORRY 
is  printed  on-line,  followed  by  a  dump.  If  the 
arguments  look  all  right,  the  cell  SYSFAZ  should  be 
examined . 

If  the  main  link  record  is  still  redundant  after  10  tries, 
the  message: 

REDUNDANCY  READING  SYSLB2  .  .  .  SEARCH  DISCONTINUED  is 
printed  on-line,  followed  by  a  dump. 
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SECTION  VII 
SUBSYS  SUBROUTINES 


A.  INTRODUCTION 

The  following  is  an  example  of  how  SUBSYS  was  imple¬ 
mented.  It  describes  the  subroutines  which  were  added  to 
the  MAGIC  System  for  SUBSYS  control.  The  Overlay  chart, 

B,  should  replace  Figure  1.7  in  Appendix  I  for  SUBSYS 
control. 
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STRUCTURAL  SYSTEM  OVERLAY  CHART 
(when  using  SUBSYS) 
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FIGURE  1.1  CONTROL  SECTION 


c. 


LIST  OP  SuBSYS  SUBROUTINE  FUNCTIONS 


. USERO^.  (Main  deck)  Control  reset  of  system  para¬ 

meters,  call  SEXEQ  and  return  control  to 
BFMTII 

SRESET  Reset  system  input  unit,  system  output  unit, 

maximum  matrix  limit,  size  of  work  area, 
print  control  and  re-establish  blank  common 
area 

SEXEQ  Read  and  interpret  .USERO1*.  instruction 

and  pass  control  to  US04 
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D.  SUBROUTINE  DOCUMENTATION  FOR  SUBSYS 


1.  Subroutine  Name:  USER04  (Main  Deck) 

2.  Purpose:  Provide  main  deck  control  under  SUBSYS 
implementation 

3.  Equation  and  Procedures:  Logical  variable  ERROR  is  set 
to  false.  Subroutine  SRESBT  is  called  to  reset  system 
parameters.  Subroutine  S5XEQ  is  then  called  to  execute 
the  .USER04.  abstraction  instruction.  SUBSYS  subroutine 
SEARCH  is  then  called  to  return  to  the  BFMTII  program. 

4.  Input  Argument:  None 

5.  Output  Argument:  None 

6.  Error  Returns:  If  logical  variable  ERROR  is  found  to  be 
true  after  performing  subroutine  SEXEQ,  then  an  error 
message  to  this  effect  is  printed  and  continuation  of 
execution  is  attempted. 

7.  Calling  Sequence:  None 

8.  Input  Tapes;  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  is  120g  (8o1Q). 

12.  Subroutine  User:  None 

13.  Subroutines  Required:  SRESET 

SEXEQ 

SEARCH 

14.  Remarks:  None 
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1.  Subroutine  Name:  SRESET 

?.  Purpose:  Reset  system  parameters  under  SUBSYS  implemen- 
tat ion 


3.  Equations  and  Procedures:  There  are  seven  system  parameters 
which  must  be  reset  due  to  operating  under  SUBSYS .  They 
are: 


NPIT 

NPOT 

KONST 

NWORK 

IPRINT 

WORK 


(7)  NINST 


System  input  unit  number 
System  output  unit  number 
Maximum  matrix  order  capability 
Number  of  storages  in  work  area 
Output  print  control 

Dimensioned  work  storage  area  (to  be  in 
blank  common) 

Unit  number  containing  instructions 


NINST  is  defined  to  have  a  value  of  one  . 

NPIT,  NPOT,  KONST,  NWORK  and  IPRINT  are  reset  by  reading 
them  from  the  return  instruction  on  NINST .  NINST  is 
searched  until  the  return  instruction  is  located,  then 
NINST  is  backspaced  and  the  return  instruction  is  read 
again,  this  time  the  required  system  parameters  are  read, 
thus  resetting  their  values  .  The  worK  storage  area,  WORK, 
is  allocated  into  blank  common  by  a  COMMON  statement  in 
SRESET  . 


4.  Input  Arguments:  None 

5  .  Output  Arguments : 

NINST  :  Fortran  logical  unit  number  containing  instructions 
IPRINT  :  Output  print  control 
NP01  :  System  output  unit  number 

6 .  Error  Returns :  None 

7.  Calling  Sequence:  (NINST,  IPRINT,  NP01) 

8.  Input  tape:  NINST  -  Abstraction  instruction  input  tape. 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  is  163q  (H5^q)  • 

12.  Subroutine  User:  USER04 


13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  SEXEQ 

2.  Purpose:  Extract  and  separate  the  required  information  from 
the  USER04  instruction  on  the  instruction  tape 

3.  Equation  and  Procedure:  The  USER04  instruction  is  read 
from  the  instruction  tape  into  the  common  work  storage 
area.  From  information  contained  in  the  first  six  words 

of  the  instruction  record  the  succeeding  data  in  the  record 
is  separated  into  its  component  sections  and  placed  into 
the  calling  sequence  to  US04 . 

4.  Input  Arguments: 

NINST  :  Instruction,  tape  number 
IPRINT  :  Output  print  control 

5  .  Output  Arguments : 

ERROR  :  Error  condition  indicator 

6  .  Error  Returns :  None 

7.  Calling  Sequence:  (NINST,  IPRINT,  ERROR) 

8.  Input  Tape:  NINST  -  Abstraction  instruction  tape 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  is  2I7g  (136.^)  . 

12.  Subroutine  User:  USER04 
13  .  Subroutine  Required :  US04 
14 .  Remarks :  None 
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APPENDIX  XI 


DOCUMENTATION  FOR  ELEMENT  INSERTION 
INTO  THE  MAGIC  SYSTEM 
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SECTION  I 


FINITE  ELEMENT  MATRIX  SUBROUTINES  DEFINITION  RULES 


A  subroutine  must  be  generated  which  may  be  used  by  EL-PLUG 
in  order  to  generate  the  element  matrices  required  for  finite 
element  analysis  in  MAGIC.  This  module  may  be  written  and 
checked  out  independent  of  MAGIC.  The  checked  out  routines  may 
then  be  added  to  MAGIC  by  following  the  "INSERTION  OF  FINITE 
ELEMENT  MATRICES  INTO  MAGIC",  page  539. 

For  purposes  of  clarification,  the  standard  subroutine 
writeup  format  is  used  in  describing  the  necessary  rules. 

This  format  is  similar  to  the  subroutine  writeup  format  used 
in  the  Volume  III  Programmer's  Manual. 


A.  SUBROUTINE  NAME 

Any  subroutine  name  may  be  chosen.  Later,  when  the 
module  is  inserted  into  MAGIC,  the  name  may  be  changed  to 
satisfy  ELPLUG  rules. 


B.  PURPOSE 

To  generate  the  finite  element  matrices  required  to 
generate  statics,  stress  dynamics,  or  stability  analysis,  this 
module  must  be  suitable  for  insertion  into  MAGIC. 


C.  EQUATIONS  AND  PROCEDURES 
1.  Equations 

a)  Equations  must  satisfy  the  requirements  and 
assumptions  of  displacement  method  finite 
element  analysis. 

b)  Ail  matrices  mujat  be  generated  with  system 

degrees  of  freedom  ordered  according  to  grid 
point,  that  is:  »w1>u2,v2,w2,w3,v3  ,w3’ 

etc.  where  u^  =  u  for  grid  point  1,  u2  =*  u 
for  grid  point  2,  etc. 


c) 


The  total  number  of  degrees  of  freedom 

=  NORD  =  number  of  grid  points  x  number  of 

degrees  of  freedom  per  point.  For  example, 

if  an  element  has  u,v,w,  0V,0  ,0  for  each 

x  y  z 

grid  point  and  has  three  grid  points,  then 
NORD  =  6  x  3  =  18. 

2.  Procedures 

a)  Element  material  properties,  element  grid  point 
data  and  geometric  properties  are  supplied  as 
input  through  the  argument  list.  The  form  of 
this  input  is  described  under  "INPUT  ARGUMENTS". 

b)  Using  matrix  methods,  all  element  matrices 
must  be  generated  in  system  coordinates.  That 
is,  all  transformations  required  must  be  per¬ 
formed  internal  to  the  subroutine.  A  selection 
of  matrix  computations  must  be  supplied,  based 
on  input  selection  controls. 

c)  Output  matrices  are  supplied  to  the  MAGIC  system 
through  the  calling  sequence,  described  under 
"OUTPUT  ARGUMENTS". 

d)  This  module  should  be  checked  out  independently 
of  MAGIC  and  then  inserted  into  MAGIC,  using 
standard  rules  for  insertion. 


e)  General  Flow 


D.  INPUT  ARGUMENTS 

1.  Control  Information 

All  suppression  controls  should  be  tested  for  value 
=  0  or  1.  If  the  value  =  0S  do  not  compute  the  appropriate 
matrix.  If  the  value  =  1,  do  compute  the  matrix. 

IPL  =  Internal  element  Identification  number 

KK  -  Suppression  control  for  element  stiffness 

matrix 

KP  =  Suppression  control  fo?  element  thermal 
and  pressure  load  matrices 

KS  =  Suppression  control  for  element  stress 
matrix 

KTS  =  Suppression  control  for  element  thermal 
stress  matrix 

KM  =  Suppression  control  for  element  mass  matrix 

KN  =  Suppression  control  for  element  incremental 

stiffness  matrix 

2.  Dimension  Information 

NNO  =  Number  of  grid  points  on  element 

NORD  =  Total  number  of  degrees  of  freedom  -  order 
of  stiffness  matrix 

3.  Gridpoint  Coordinate  Data 

XC  =  X  coordinates  of  element  gridpoints  of 
length  NNO 

YC  =  Y  coordinates  of  element  griupoints  of 
length  NNO 

ZC  =  Z  coordinates  of  element  gridpoints  of 
length  NNO 
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TC  =  Grid  point  temperatures  for  element  of 
length  NNO 

PC  =  Grid  point  pressures  for  element  of 
length  NNO 


Material  Property  Input 

These  properties  are  input  temperature  interpolated 
element  related  material  properties  stored  in  a  one-dimensional 
array:  MAT.  This  array  was  generated  in  ELEM  by  computing  the 
effective  element  temperature  and  then  interpolating  the 
material  file  tables  for  necessary  values. 

a)  MAT  Array  -  MAT(l)  contains  temperatures  at 
which  variables  will  be  interpolated: 

i)  Elastic  Properties 


MAT ( ? ) 
MAT ( 3 ) 
MAT ( 4 ) 
MAT ( 5 ) 
MAT(6) 
MAT ( 7 ) 
MAT ( 8 ) 
MAT ( 9 ) 
MAT (10) 
MAT (11) 
MAT ( 12 ) 
MAT (13) 


Young's  Modulus 


Poisson's  Ratio 


Thermal  Coefficients 
of  Expansion 


Shear-  Modulus 


ii)  MAT(l^)  -  MAT(21)  is  reserved  for  future  use. 


iii)0ther  Parameters 


MAT (22)  Mass  Density  -  DENSTY 

MAT (23)  Option  for  element  print  -  WIPR 

MAT(2^I)  Initial  temperature  -  TZERO 
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E.  OUTPUT  ARGUMENTS 


All  symmetric  arrays  are  stored  such  that  only  the  lower 
half  is  stored  by  rows  in  single  subscripted  form. 


1.  Control  Information 

NERR  =  Error  set  control  (described  under  ERROR 
RETURNS). 


2.  Dimension  Information 

NOINK  =  Number  of  words  in  symmetric  matrix 
NORD  x  (NORD+D/2 

NP.SEL  =  Number  of  stress  components  =  number 
of  rows  in  stress  matrix 

NSEL  =  Number  of  words  in  stress  matrix 
=  NRSEL  *  NORD 

NMASS  =  Number  of  words  in  mass  matrix. 


3.  Output  Element  Matrices 

a>  Stiffness  Matrix  -  AKEL  =  Singularly  subscripted 
array  which  represents  storage  of  length 
(NORD  x  (N0RD+l))/2.  Elements  of  lower  half 
of  symmetric  matrix  of  order  NORD  x  NORD  must 
be  stored  in  system  coordinates.  The  com¬ 
putation  of  this  matrix  should  be  suppressed 
if  KK  =  0. 

b)  If  KF  =  1,  compute  FTEL  =  thermal  +  pressure 
element  load  matrix  column  of  order  NORD  x  1. 

c)  If  KS  =  1,  compute  SEL  =  stress  matrix  of 
order  (NRSEL  x  NORD)  where  NRSEL  =  number  of 
stress  components. 

d)  If  KTS  =  1,  compute  thermal  stress  matrix 
=  STEL  =  NRSEL  x  1  matrix  column. 

e)  If  KM  «  1,  compute  MASS  matrix  in  same  form  as 
stiffness  matrix. 


f)  NOINK  =  number  of  storages  for  stiffness 
matrix. 

g)  NRSEL  =  number  of  stress  points  o^  stress 
matrix. 

h)  NMASS  =  number  of  storages  for  mass  matrix, 
if  no  mass  matrix  exists,  set  NMASS  =  1. 


4 .  EXTRA 

EXTRA  =  a  total  of  5  input  element  properties  is 
possible  as  input  to  MAGIC.  Element  thicknesses  or  other 
geometric  properties  are  obtained  from  this  array. 


F .  ERROR  RETURNS 

Set  NERR  =  0  if  no  error 

Set  NERR  =  1  if  finite  element  number  (IPL)  is  incorrect 
Set  NERR  =  2  if  number  of  Nodes  (NNO)  is  incorrect 
Set  NERR  =  3  if  order  of  matrix  =  NORD  is  incorrect. 


G.  CALLING  SEQUENCE 

Call  (Subroutine  Name)  ( IPL , NNO , NORD , KK , KF , KS , KTS , KM , 

KN , XC , YC , Z  C , TC , PC , MAT , EXTRA , NOINK , NRSEL , NSEL , NMASS , 
AKEL , FTEL , SEL , STEL , AMASS , NERR ) 


H.  STORAGE 

All  singular  subscript  arrays  should  be  dimensioned  (1). 
SEL  must  be  dimensioned  (NRSEL, NORD) . 


I .  SUBROUTINE  USER 

ELPLUG  must  be  updated  to  accept  this  routine.  "INSERTION 
OF  FINITE  ELEMENT  MATRICES  INTO  MAGIC"  should  be  consulted  for 
the  changes  necessary  to  ELPLUG  and  MAGIC. 


J .  SUBROUTINES  USED 

Any  subroutines  may  be  used  and  written  for  use  in  this 
routine. 


SECTION  II 


INSERTION  OP  FINITE  ELEMENT  MATRICES  INTO  MAGIC 


As  MAGIC  is  a  General  Purpose  Structural  Analysis  Program, 
certain  sections  can  be  considered  as  modules.  Revisions  to 
the  program  is  accomplished  by  insertion  of  new  subroutines 
or  modules.  This  concept  of  inserting  or  "plugging"  finite 
element  matrices  into  a  program  was  originally  a  concept  In 
1956  of  Turner  of  Boeing.  Thus  the  term  "plug"  means 
inserting  different  finite  element  equations  into  MAGIC. 


Revisions  to  MAGIC  Include  the  Following: 


A.  Revisions 

B.  Revisions 

C.  Revisions 

D.  Revisions 

E.  Revisions 

F.  Revisions 


to  . USERO^I .  Module 
to  STRESS  Module 
to  FORCE  Module 
to  EPRINT  Module 
to  OVERLAY  of  Program 
to  the  Plug  Subroutines 


Themselves . 
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REVISIONS  TO  .USER04.  MODULE 


1.  Subroutine  ELEM 

a)  Revise  the  "Table  of  Contents"  of  elements* 
if  necessary.  Consult  current  listing  for 
present  form. 

b)  Refer  to  "REVISIONS  TO  SLEM  AND  FELEM"  in 
order  to  update  the  DATA  and  DIMENSION 
statements  for  the  arrays: 

NUMOLD 

IPLNO 

NDSEL 

c)  Increase  the  value  of  NUMPLG  by  +1  for  each 
plug  added. 


2.  Subroutine  FELEM 

a)  Update  the  "Table  of  Contents"  of  elements, 
if  necessary.  See  Table  I. 

b)  Revise  the  data  statement  for  the  NEWNUM 
array,  if  necessary.  Refer  to  "REVISIONS 
TO  ELEM  AND  FELEM",  page  551. 


3.  Subroutine  ELPLUG 

a)  Modify  the  computed  GOTO  statement  so  that 
control  passes  to  statement  number  MNOO  when 
IPL  assumes  the  value  MN.  (NOTE:  MN  is  the 
one  or  two  digit  plug  number.) 

b)  Insert  the  CALL  PLUGMM  with  appropriate  calling 
sequence  at  statement  number  MNOO. 

c)  Insert  instructions  to  bypass  the  grid  point 
axis  transformation,  if  necessary.  These 
transformations  must  be  skipped  in  all  plugs 
which  handle  grid. point  axis  transformation 
inside  the  plug  itself. 


B.  REVISIONS  TO  THE  STRESS  MODULE 
1.  Subroutine  STRES2 

a)  Increase  the  DIMENSION  of  the  array  PLUGS. 

This  array  contains  the  plug  number  of  all 
the  element  types  available  to  the  MAGIC 
system. 

b)  Update  the  variable  NPLUGS.  This  variable 
should  be  the  same  as  the  dimension  of  the 
PLUGS  array. 

c)  Add  the  new  element  type  plug  number  to  the 
DATA  statement  which  defines  the  PLUGS 
array . 

d)  Update  the  GOTO  statement  which  transfers 
control  to  the  WRITE  statement  which  writes 
the  heading  for  the  stresses  of  that  particular 
element  type.  The  statement  number  to  trans¬ 
fer  to  is  calculated  by  IPL*1000. 

e)  Add  the  WRITE  statement  with  format  number 
IPL*1000+1.  Then  define  the  following 
variables: 

i)  NSC  *  the  number  of  stress  components 

for  this  element 

ii)  IFMT  «  the  updated  value  of  NPLUGS 

iii)  KFMT  -  1,2,3,**  or  n  depending  on  the  format 

needed  to  write  out  the  stress  value 
The  actual  format  will  be  discussed 
in  Section  V. 

f)  Add  the  statement  GOTO  320. 

g)  The  heading  printed  out  for  the  stresses  of  this 
element  should  conform  to  the  format  of  all  the 
other  headings. 
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c. 


REVISIONS  TO  THE  FORCE  MODULE 


1.  Subroutine  FCRCE2 

a)  Increase  the  DIMENSION  of  the  array  PLUGS. 

This  array  contains  the  plug  number  of  all 
the  element  types  available  to  the  MAGIC 
system. 

b)  Update  the  variable  NPLUGS.  This  variable 
should  be  the  same  as  the  dimension  of  the 
PLUGS  array. 

c)  Add  the  new  element  type  plug  number  to  the 
DATA  statement  which  defines  the  PLUGS  array. 

d)  Update  the  GOTO  statement  which  transfers 
control  to  the  WRITE  statement  which  writes 
the  heading  for  the  forces  of  that  particular 
element  type.  The  statement  number  to  trans¬ 
fer  to  is  calculated  by  IPL*1000. 

e)  Add  the  WRITE  statement  with  format  number 
IPL*1000+1.  Then  define  the  following 
variables: 

i)  NFC  =  the  number  of  components  of  force 

for  this  element 

ii)  IFMT  =  the  updated  value  of  NPLUGS*100 

iii)  KFMT  =  1,2,3,^  or  n  depending  on  the 

format  needed  to  write  out  the 
force  values.  The  actual  format 
will  be  discussed  in  Section  V. 

f)  Add  the  statement  GOTO  320. 

g)  The  heading  printed  out  for  the  forces  of  this 
element  should  conform  to  the  format  of  all 
other  headings. 


D. 


REVISION  TO  THE  EPRINT  MODULE 


1.  Subroutine  EPRINT 

a)  Increase  the  DIMENSION  of  the  array  PLUGS. 

This  array  contains  the  plug  number  of  all 
the  element  types  available  to  the  MAGIC 
system. 

b)  Update  the  variable  NPLUGS.  This  variable 
should  be  the  same  as  the  dimension  of  the 
PLUGS  array. 

c}  Add  the  new  element  type  plug  number  to  the 
DATA  statement  which  defines  the  PLUGS  array. 

d)  Update  the  GOTO  statement  which  transfers 
control  to  the  WRITE  statement  which  writes 
the  headings  for  the  stresses  or  forces  of 
that  particular  element.  If  1PRT=1,  then 
net  element  stresses  are  to  be  written.  The 
statement  number  to  transfer  to  is  calculated 
by  600+IPL.  If  IPRT=2  then  net  element 
forces  are  to  be  written.  The  statement 
number  to  be  transferred  to  is  calculated  by 
7  00+IPL-. 

e)  Add  the  WRITE  statement  with  format  number 
800+1PL  for  stresses  and  900+IPL  for  forces. 

For  both  stresses  and  forces  define  the 
variables : 

i)  NC  =  number  of  stress  or  force  components 

ii)  IFMT  «  the  updated  value  of  NPLUGS  for 

stresses  and  for  forces  it  equals 
NPLUGS* 100. 

iii)  KFMT  =  2, 2, 3 or  n  depending  on  the 

format  needed  to  write  out  the 
stress  and  force  values.  The 
actual  format  Is  discussed  under 
STRPRT  revisions  below. 

f)  Add  the  statement  GOTO  200. 

g)  The  headings  to  be  printed  should  be  exactly 
the  same  as  those  written  in  subroutines  STRES2 
and  F0RCE2 . 
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Subroutine  STRPRT 


Subroutine  STRPRT  is  called  by  STRES2,  FORCL'2,  and 
EPRINT. 

a)  This  routine  contains  the  format  statements 
necessary  to  write  the  stress  or  force  values. 

At  present,  there  are  four  different  formats 
available,  defined  by  FMT1,  FMT2,  FMT3  and  FMT^. 
The  value  of  KFMT  as  defined  in  STRES2 ,  F0RCE2 
and  EPRINT  will  point  to  one  of  these  formats. 

If  any  of  the  present  formats  are  not  applicable 
for  the  printing  of  the  values  of  a  new  element 
type  then  the  following  must  be  done. 

i)  Define  a  new  format  statement  in  a  DATA 
statement.  Give  it  the  name  FMTn.  Set 
KFMT=n . 

ii)  DIMENSION  this  format. 

ill)  Update  the  GOTO  statement  which  transfers 
to  the  WRITE  statement  which  uses  the  new 
FORMAT  FMTn.  Calculate  the  statement 
number  by  KFMT* 100. 

o)  The  column  headings  that  are  to  be  printed  for 
the  new  stresses  and  forces  must  also  be  added 
to  this  routine.  Update  the  GOTO  statement 
which  transfers  control  to  the  correct  WRITE 
statement.  For  stresses,  the  statement  number 
is  IPL*1000  and  the  format  number  of  the  write 
statement  is  IPL*1000+1.  For  forces  the  state¬ 
ment  number  is  IPL* 1000+3  and  the  format  number 
Is  IPL*10Q+2. 

c)  The  FORMAT  statement  which  contains  the  headings 
for  the  columns  should  follow  a  format  similar 
to  those  already  included  in  the  routine. 


E. 


REVISIONS  TO  OVERLAY 


The  overlay  will  have  to  be  revised  whenever  new  sub¬ 
routines  are  added  to  MAGIC.  This  overlay  structure  may  be 
a  function  of  the  particular  version  on  a  particular  machine. 
There  is  no  standard  procedure  but  a  general  guideline  is 
available:  NEWPLUGS  may  be  placed  on  new  links  which  are  on 
the  same  level  as  existing  plugs  since  only  one  plug  will  be 
necessary  in  core  at  one  time. 


PLUGS  AND  SUBROUTINE  CHANGES 


1.  Obtain  listing  of  PLUG  which  has  been  written  and 
checked  out  by  following  the  rules  under  "Finite 
Element  Matrix  Subroutine  Definitions  Rules", 
page 


2.  Equivalence  all  working  dimensions  to  WORK  storage 
by  referring  to  "Equivalence  of  Local  Work  Areas 
in  MAGIC",  page 


3*  Insert  this  card  immediat  ;ly  after  the  subroutine 
FLUGMN  statement: 

COMMON  NPIT, $, KONST, DUMMY (7 097 ) , 

WUhX(NLAST) 

When  NLAST  is  defined  as  the  last  location  of  the 
WORK  storage  array  referenced  in  Item  (2)  above. 


4.  REPEAT(3)  above  for  every  subroutine  used  by  FLUGMN. 


G. 


CHECKLIST  TABLES  FOR  USE  IN  INSERTION 


This  table  contains  all  of  the  revisions  listed.  These 
tables  should  be  used  in  order  to  be  sure  that  all  steps  have 
been  completed. 

When  revised  item  has  been  completed,  write  an  X  In  the 
space  provided. 

A.  . USER04 . 

1.  Subroutine  ELEM 

a.  Revise  the  "Table  of  Contents"  _ _ 

(1)  REVISED  _ 

(2)  No  Revision  Necessary  _ _ 

b.  Revise  NUMOLD 

(1)  DATA  Statement  _ 

(2)  DIMENSION  Statement  _ 

Revise  IPLNO 

(1)  DATA  Statement  _ 

(2)  DIMENSION  Statement  _ 

Revise  NDSEL 

(1)  DATA  Statement  _ 

(2)  DIMENSION  Statement  _ 

c.  Increase  NUMPLUG  by  +1  _ 

2.  Subroutine  FELEM 

a.  Table  of  Contents  Revision  _ 

b.  NEWNUM  Array  Revision  _ 

3.  Subroutine  ELPLUG 

a.  Computed  GOTO  Statement  NO.  _  _ 

b.  Call  PLUGMN  -  Plug  No.  _  _ 

c.  Grid  Point  Axis  Transformation 

(1)  Included  Inside  PLUG  _ 

(2)  Not  Included  Inside  PLUG  _ 
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STRESS  MODULE 
1.  Subroutine  STRES2 

a.  Increase  dimension  of  PLUGS 

b.  Update  NPLUGS 

c.  Update  PLUGS  DATA  Statement 

d.  Update  GOTO  Statement  for  'Element 
Stress  Headings 

GOTO  Statement  No.  _ 

e.  Add  WRITE  Statement 
Redefine: 

(1)  NSC 

(2)  IFMT 

(3)  kfmt 

f.  Add  statement  GOTO  320 

g.  Insert  Ne</  Heading  for  Stress  Print 

FORCE  MODULE 
1.  Subroutine  FORCE2 

a.  Increase  Dimension  of  PLUGS 

b.  Update  NPLUGS 

c.  Update  PLUGS  DATA  Statement 

d.  Update  GOTO  Statement  for  Element 
Force  Headings 

GOTO  Statement  No.  _ 

e.  Redefine: 

(1)  NFC 

(2)  IFMT 

(3)  KFMT 

f.  Add  Statement  GOTO  320 

g.  Insert  New  Heading  for  FORCE  Print 


D.  EPRINT  MODULE 


1.  Subroutine  EPRINT 

a.  Increase  Dimension  of  PLUGS 

b .  Update  NPLUGS 

c.  Update  PLUGS  DATA  Statement 

d.  Update  GOTO  Statements  for  Element 
Stress  and  Force  Headings 

e.  Add  WRITE  Statements 
Redefine: 

(1)  NO 

(2)  IFMT 

(3)  KFMT 

f.  Add  Statement  GOT^  200 

g.  Insert  Headings  which  are  same  as  for 
STRES2  and  FORCE2 

2.  Subroutine  STRPRT 

a.  Define  FMTn  DATA  Statement 
Set  KFMT-n 

Dimension  FMTn 

Update  GOTO  Statement 
GOTO  (KFMT* 100)  _ 

b.  Update  FORMAT  and  GOTO  Statements 
for  Print  of  Column  Headings 

STRESSES : 

Format  No.  (IPL* 1000+1)  _ 

GOTO  (IPL*1000)  _ 

FORCES: 

Format  No.  (IPL* 1000+2)  _ 

GOTO  (IPL* 1000+3)  _ _ 
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REVISIONS  TO  OVERLAY 

1.  Revise  OVERLAY  of  Program 

PLUGS  AND  SUBROUTINE  CHANGES 

1.  Set  up  and  Checkout  PLUG  Subroutines 

2.  Equivalence  WORK  Storages 

3.  Insert:  COMMON  NPIT,*, KONST, DUMMY, WORK 
in  all  Subroutines 


SECTION  III 


REVISIONS  TO  ELEM  AND  PELEM 


A.  REVISIONS  TO  FELEM 

1.  Defining  NEWNUM  (contained  in  PELEM) 

The  logical  grouping  of  elements  selected  for  MAGIC 
is  shown  in  Table  I.  The  '•plug”  numbers  are  shown  in  Table  I 
also.  Using  Table  I  as  a  reference,  the  MAGIC  numbering 
system  is  arranged  in  ascending  order,  inserting  a  zero  for 
an  unidentified  element.  This  results  in  data  for  a  NEWNUM 
array  shown  in  Table  II.  Referring  to  Table  I  and  Table  II, 
let  I  -  plug  number,  J  =  MAGIC  (NEWNUM).  Then  the  array 
NEWNUM  is  defined  by:  NEWNUM(J)  =  I.  NUNUM  only  must  be 
revised  if  new  group  is  added. 


B.  REVISIONS  TO  ELEM 

1.  Defining  NUMOLD 

At  a  given  point  in  time,  NUMOLD  is  shown  in  Table  III. 
It  is  defined’ by  the  following:  NUMOLD(I)  *  J.  When  I  and  A 
above  have  the  same  meaning  as  in  (A)  above,  NUMOLD  must  be 
revised  where  a  new  plug  is  added. 

2.  Defining  IPLNO 

IPLNC  represents  the  group  number  of  existing  MAGIC 
elements  and  must  be  extended  for  any  new  element  matrix  set. 
This  array  represents  the  NUMOLD  array  after  zeros  have  been 
deleted. 


3.  Defining  NDSEL 

NDSEL  represents  the  number  of  stress  points  coded  for 
existing  elements  in  MAGIC.  This  number  is  the  one  actually 
coded  in  the  plug  and  corresponds  to  NRSEL  described  under 
reference  "Definition  of  Calling  Sequence  for  ELEMENT  Matrix 
Subroutines. " 
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For  example,  referring  to  Table  I,  if  a  sandwich 
plate  is  to  be  added,  I  *  18,  J  »  28}  that  is,  PLUG  18 
representing  group  No.  28  is  to  be  added.  Suppose  that  only 
5  stress  points  are  considered  for  this  element.  Then  the 
revised  statements  and  arrays  are  shown  in  Table  III(A). 


TABLE  I 


TABLE  OF  CONTENTS  FOR  FELEM  ELEMENT  DESCRIPTION* 


I 

PLUG 

MAI 

(NEfc  ) 

NUMBER 

NODES 

DESCRIPTION  OF  ELEMENT 

1 

21 

8 

Quadra  Lateral  Shell 

2 

20 

6 

Triangular  Shell 

3 

22 

3 

Triangular  Plate  of  Constant  Stres 

4 

23 

4 

Quadrilateral  Plate  of  Constant 
Stress 

5 

30 

2 

Torodial  Ring 

6 

40 

3 

Triangular  Ring 

7 

11 

3 

Frame 

8 

41 

4 

Trapezodial  Ring 

S 

42 

1 

Core  (Ring) 

10 

50 

4 

Tetrahedran 

11 

24 

4 

Shear  Panel  (Translation  Only) 

12 

26 

3 

Sandwich  Plate 

13 

51 

6 

Triangular  Prism 

14 

25 

4 

Shear  Panel  (Translation  and 
Rotation) 

15 

10 

2 

Axial 

16 

12 

3 

Stiffener 

17 

27 

3 

Triangular  Plate 

18 

28 

4 

Quadrilateral  Plate 

19 

43 

2 

Truncated  Cone 

20 

52 

8 

Rectangular  Prism 

22 

13 

» 

- 

Incremental  Frame 

Example  for  tlae  ^Quadrilateral  Plate": 

I  ■  Plug  No.  »  18 
J  «  Group  No.  *  28 


TABLE  II 


NEWNUM  DATA  STATEMENT  IN 
SUBROUTINE  FELEM 


DIMENSION  NEWNUM ( 5a) 

DATA  NEWNUM/ 

1  0,0,0, 0,0, 0,0, 0,0 

2  15,7,16,22,0,0,0,0,0,0 

3  2, 1,3,  ft, 11,  l1*,  12, 17, 18,0 

4  5,0, 0,0, 0,0, 0,0, 0,0 

5  6,8,9,19,0,0,0,0,0,0 

6  10,13,20,0,0,0,0,0,0,0/ 
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TABLE  III 


DATA  STATEMENTS  IN  SUBROUTINE  ELEM 


These  tables  represent  MAGIC  with  the  following  plug  numbers 
1,2,4,5,6,14,17,18 


(a.)  DIMENSION  NUMOLD  (17) 
DATA  NUMOLD 

(b)  DIMENSION  IPLNO  (7) 
DATA  IPLNO 


/21, 20, 0,0, 30, 40, 11, 0,0, 
0,0,0,0,25,0,0,27,/ 

/21, 20, 30, 40, 11, 25, 27/ 


(c)  DIMENSION  NDSEL  (7) 

DATA  NDSEL  /40, 32, 15, 4, 12, 1,8/ 

NUMPLG  =  7 


TABLE  III (a) 

Represents  NUMOLD,  IPLNO  and  NDSEL  after  addition  of  quadri¬ 
lateral  plate  (example): 


(a) 

DIMENSION 

DATA 

NUMOLD 

NUMOLD 

(16) 

/21, 20, 0,0, 30, 40, 11, 0,0 
0,0,0,0,25,0,0,27,28/ 

(b) 

DIMENSION 

DATA 

IPLNO 

IPLNO 

(8) 

/21, 20, 30, 40, 11, 25, 27, 28/ 

(c) 

DIMENSION 

DATA 

NDSEL 

NDSEL 

(8) 

/40, 32, 15, 4, 12, 1,8, 5/ 
NUMPLG  «  8 
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SECTION  IV 


EQUIVALENCE  OP  LOCAL  WORK  ARRAYS 


The  MAGIC  System  uses  a  large  area  of  blank  common  to 
store  all  temporary  and  work  arrays  for  the  .  U-SER04.  module. 
The  arrav  is  set  up  in  routine  ELPLUG  and  modified  in  each 
of  the  plugs.  All  local  arrays  used  by  subroutines  called 
by  a  plug  may  be  defined  in  this  large  common  area  by  an 
equivalence  statement  in  the  plug.  Thus  no  additional  storage 
is  required  after  the  common  work  array  has  been  defined. 

NWORK  =  the  maximum  number  of  WORK  storages  available 
to  the  MAGIC  System.  The  value  of  this  parameter  is  set  in 
the  MAGIC  routine  MRES. 

NLAST  =  NWORK  -  7096  =  total  number  of  work  storages 
available  for  equivalence  of  local  arrays. 


A.  WORK  ARRAY  EQUIVALENCES  FOR  PLUG  SUBROUTINES 

1.  Obtain  "plug11  listing,  with  array  map. 

2.  Check  argument  list  of  plug  and  determine  dimensional 
arrays  which  appear  in  argument  list.  These  arrays 
are  not  local  to  plug  and  therefore  should  not  be 
equivalenced. 

3.  Remaining  arrays  must  now  be  equivalent  to  work 
array  in  plug.  All  these  arrays  are  local  to 
plug  itself. 

4.  Check  dimension  statement  and  equivalence  of  all 
these  local  arrays  successively. 

5.  Now  search  through  all  array  maps  of  subroutines 
called  by  plug  and  place  all  arrays  local  to  the 
called  subroutines  (which  are  dimensioned  10  or 
above)  in  the  argument  list.  Equivalence  these 
arrays  to  the  work  array  in  the  plug  itself.  Enter 
the  appropriate  dimension  statement  in  the  plug. 

6.  Now  check  equivalence  storage  map  and  equivalence 
the  longest  number  of  each  equivalence  group  to 
the  next  available  location  of  WORK.  Enter 
dimension  statements  if  necessary.  Leave  the 
original  -equivalence  statements  in. 
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7.  See  the  following  example  where  subroutines  SUB1, 
SUB2,  SUB 3  with  local  arrays  LI,  L2,  LOC,  EXTRA 
are  to  be  called  by  PLUGX.  For  this  example 
NWORK  «  13000.  NLAST  -  1300  -  7096  =  5900. 


PLUGX (AMASS, STRESS, FTEL, ETC.  ) 

COMMON  NPIT , NPOT , KONST , DUMM7 ( 7 097 ) , WORK ( 5 9 0 4 ) 
DIMENSION  Ll(50),  L2(420),  LOC(IOQ),  EXTRA(300) 
EQUIVALENCE  (WORK(l) ,L1(1) ) 

"  (WORK (51) ,L2(1) ) 

"  (W0RK(131),L0C(1)) 

"  (WORK(231),EXTRA(l)) 

"  (WORK (531),  -  ) 


CALL  SUB1 


Call  SUB2 
CALL  SUB3 


(AMASS, LI, L 
(STRESS, LOC) 
(FTEL, EXTRA 


Arrays  not  used  in  PLUGX 
but  which  are  local  to 
SUB1,  SUB2,  and  SUB3 . 
They  must  be  dimensioned 
in  PLUGX. 


Search  all  subroutines  called  by  PLUGX  for  local  arrays  and 
put  the  dimension  and  equivalence  in  PLUGX  to  conserve 
storage. 


SUBROUTINE  SUB1(AMASS,L1,L2, . . . ) 
DIMENSION  AMASS  ( ...),L1(50),L2(H,20) 


Two  work  arrays  used  to 
calculate  MASS 


SUBROUTINE  SUB2 (STRESS ,L0C , . . . ) 
DIMENSION  STRESS ( . . . ) ,LOC( 100) 


Work  array  used  to 
calculate  STRESS 


SUBROUTINE  SUB3  (FTEL, EXTRA, . . . ) 
DIMENSION  FTEL(...),EXTRA(30C) 


•Work  array 
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COMMON  WORK  AREA  FOR  .USERO^. 


NPIT 

NPOT 

KONST 

t 

DUMMY(997 ) 


SEL 

LISTOL 

SZALEL 

LISTEL 

t 

ETC. 

4 

ANEL(l) 


Area  reserved  for 
element  (plug) 
generated  matrices 
common  to  all  elements 


Work  area  available 
to  plugs 
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